use File::Spec::Functions 'rel2abs';
print rel2abs($0);