Select Code to Download

#!/usr/bin/perl
#
...
    print "main loop proceeding\n";
    sleep(1);
}

main loop proceeding
printing from within sub routine
...
main loop proceeding
printing from within sub routine
main loop proceeding