C:\>perl -we "$i=0;$stop=time +2;while(1){print $i++, qq!\n!; last if time > $stop}"