use File::Basename;

my $script = __FILE__;
my $dir = dirname($script);