perl -e 'for($i=0; $i < 10; $i++){sleep 1; print STDERR $i;}'