Select Code to Download

#! perl -slw
use strict;
...

print --$i while $i and sleep 1;

C:\test>t-popen -T=10 -N=10
8:done
...
9:1
9:0
9:done