Select Code to Download

#!/usr/bin/perl

...
my $code = '$|=1; my $t=2; for (1..100) { printf "%.1f\n", $_*$t; sele
+ct undef,undef,undef,$t; }';
my $cmd  = "perl -e '$code'";
process_scheme($cmd, "test.out");

$ strace -tttf ./811706.pl

...
[pid  7341] 1260280139.166408 write(1, "2.0\n", 4 <unfinished ...>
...
[pid  7340] 1260280141.168640 alarm(1)  = 0
[pid  7340] 1260280141.168675 alarm(0)  = 1
...