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

while (<subdir/*.pl>) {
	my $pkg = do $_;
	print "Loaded package $pkg\n";
	{
		no strict 'refs';
		&{"${pkg}::spew"}();
	}
}

##</code><code>##

package Foo;

print "Executing foo.pl\n";

sub spew {
	print "This is package Foo\n";
}

__PACKAGE__

##</code><code>##

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