diff --git a/misc-scripts/binary_delta/planner.pl b/misc-scripts/binary_delta/planner.pl
index 899dc69890499b2922529bbd59aa829cee4fce77..1269ebf75bd4eaefb69c633827d938fbfb11b676 100755
--- a/misc-scripts/binary_delta/planner.pl
+++ b/misc-scripts/binary_delta/planner.pl
@@ -60,7 +60,7 @@ if [ ! -d databases/$p1 -a ! -f databases/$p1.done ]; then
   scp -c none -r ecs3:/mysqla/current/var/$p1 databases/
 fi
 if [ ! -f deltas/$d.txt ]; then
-  /usr/bin/time ./build.pl -c ./xdelta.osf -s databases -d deltas \\
+  /usr/bin/time perl ./build.pl -c ./xdelta.osf -s databases -d deltas \\
     $pair[0][0] $pair[0][1] $pair[1][1] 2>&1 | \\
     tee deltas/$d.txt
   rm -rf databases/$p0