Select Code to Download

#! perl -slw
use strict;
...
    sleep 1;
    warn "$0 still running\n";
}

#! perl -slw
use strict;
...
    chomp;
    print localtime() . " Got: '$_'";
}

c:\test>junk3
Sat Aug  4 02:33:24 2007 Got: 'Sat Aug  4 02:33:24 2007'
...
junk2.pl still running
junk2.pl still running
...

#! perl -slw
use strict;
...
    sleep 1;
    warn "$0 still running\n";
}

c:\test>junk3
junk2.pl still running
...
junk2.pl still running
junk2.pl still running
...