use Cwd            qw( abs_path );
use File::Basename qw( dirname );

my $dir_of_pm = dirname(abs_path(__FILE__));
[download]

BUT! This sounds like a job for File::ShareDir (or maybe File::HomeDir).