use File::Basename qw(dirname);
use File::Spec::Functions qw(rel2abs catdir updir);

print rel2abs(catdir( dirname(__FILE__), updir() ));