use File::Spec::Functions qw(rel2abs splitpath catpath);

(my $vol, my $dirs, undef) = splitpath( rel2abs($0) );
my $path = catpath( $vol, $dirs, undef );

print "I am ", $path, "\n";