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

print "I am ", rel2abs($0), "\n";