Select Code to Download

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

Foo::spew();
Bar::spew();

package Foo;
print "Executing foo.pl\n";
sub spew {
    print "This is package Foo\n";
}

package Bar;
print "Executing bar.pl\n";
sub spew {
    print "This is package Bar\n";
}

Executing bar.pl
Executing foo.pl
This is package Foo
This is package Bar