Select Code to Download

#! perl
use strict;
...
    undef $_[0];
    print "End bar()\n";
}

 3:14 >perl 556_SoPW.pl
Begin bar()
...
Back in main

 3:18 >