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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

print dirname(dirname(__FILE__));    # ?? Is this reliable?