Select Code to Download

#! perl -slw
use strict;
...
printf "%030d\n", $_ for 1 .. 1e3;
print "Press enter to exit";

#! perl -slw
use strict;
...
print scalar @results;

<STDIN>;

[12:05:50.87] C:\test>winopen2-test.pl
...


[12:06:00.23] C:\test>