package Foo;
use File::Spec::Functions qw(rel2abs);
use File::Basename;
my $dir = (fileparse(rel2abs(__FILE__)))[1];

print "Foo directory: $dir\n";
1;