# 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;

##</code><code>##

use strict;
use MyDir::MyTest;

my $foo = MyDir::Foo->new();
$foo->foo();

my $bar = MyDir::Bar->new();
$bar->bar();