Select Code to Download

#! perl -slw
use strict;
...

print 'test.pl finished loading';

#! perl -slw
use strict;
...
    print 'after testit()';
    doit();
}->join;

[18:40:12.57] C:\test>914924.pl
before testit()
...
1310924425.29802
1310924426.79802
doit() finished