use Cwd;
print "Current dir is ", getcwd, "\n";

(my $dir) = $0 =~ m|(.*?)[^\\/]+$|;
print "Current dir is ", $dir, "\n";