use Cwd qw(realpath);
print "'$0' is '", realpath($0), "'\n";