use Cwd qw(abs_path);
my $location = abs_path($0);
print "Location: $location\n";