# file: MyDir/MyTest.pm
package MyDir::Foo;

sub new{
	my $class = shift;
	my $self = {};
	bless $self, $class;
	return $self;
}

sub foo{
	print "Foo\n";
}

package MyDir::Bar;

sub new{
	my $class = shift;
	my $self = {};
	bless $self, $class;
	return $self;
}

sub bar{
	print "Bar\n";
}

1;