$ perl -MFile::Spec -le 'print File::Spec->rel2abs( __FILE__ ) ;'
/home/svenXY/-e    # for a one-liner