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

while (<subdir/*.pl>) { do $_; }

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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