#! perl -slw
use strict;
use Time::HiRes qw[ time sleep ];

print 'test.pl started loading';

sub doit {
    print 'doit called';
    for( 1 .. 5 ) {
        print scalar time;
        sleep 1.5;
    }
    print 'doit() finished';
}

print 'test.pl finished loading';