use File::Spec::Functions qw( rel2abs );
print "I am ", rel2abs( $0 ), "\n";