use Cwd qw(abs_path);
print "I am ", abs_path($0), "\n";