use File::Basename qw(dirname);
use File::Spec;

print File::Spec->rel2abs(
	File::Spec->catdir(
		dirname(__FILE__),
		File::Spec->updir(),
	)
);