one line perl script - monitoring file increase speed

perl -e '$l=0;while(1) { sleep 1; chop($m=`du -k`); $m =~ s/^\s+//; $m =~ s/\s+$//; print join(" ",localtime(time)) . " " .
($m-$l). "/$m (k)\n"; $l=$m;}'