Ahhh, now that makes something presentable.

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

print rel2abs(catdir( dirname(__FILE__), updir() ));
[download]

Yeah, I was attempting to follow the suggested standard of not infecting the package namespace by using the OO version. However, the functional version of File::Spec really does make it easier to follow (IMO).

- Miller