use Cwd qw/ realpath /; my $path = realpath($0);