Select Code to Download

#!/usr/bin/perl

...
Bar();

1;

#!/usr/bin/perl
use strict;
...
}

print "\nDone!\n";

20:54:50.70@admin:> perl tester.pl
Undefined subroutine &main::Bar called at testee.pl line 7.
...
Done!

20:54:56.11@admin:>