Is the problem you're stuck on how to figure out what directory My::Module is in, so you can find other files relative to it?

If so, look at the %INC variable, specifically at $INC{'My/Module.pm'}. Here's a small sample:

package t63;

use File::Basename;

my $incpath = __PACKAGE__.".pm";
$incpath =~ s/::/\//g;
our $dir = dirname($INC{$incpath})||'.';

print "Dir: $dir\n";
1;
[download]

You might also want to look at the FindBin module, since it does almost what you want but not quite.