use File::Basename;
BEGIN {
    my $mod =;
    $mod =~ s{::}{/}g;
    $mod .= ".pm";
    push @INC, dirname $INC{$mod}; # oder unshift, ggfs. mit Test, ob das Verzeichnis bereits in @INC existiert
}