Du kannst das mit Devel::Profile machen oder ganz einfach häufiger mal eine print-Anweisung... Also z.B. mal print scalar(time) . ": start...\n";

[...]

print scalar(time) . ": starte 'ls -Rlgo $mountpt'...\n";
[... das ls ...]
print scalar(time) . ": done...\n";

[...]

print scalar(time) . ": vor dem 'sdiff'...\n";