!/usr/bin/perl $|++; for my $i ( 0 .. 10) { print $i, "\n"; sleep 1; } print "sleeping 5\n"; sleep 5; for my $i ( 0 .. 10) { print $i, "\n"; sleep 1; }