use File::Basename;

my ($base,$dir,$ext) = fileparse($INC{'Foo.pm'}, '.pm');
my $plugindir = "$dir$base";