use File::Spec; use File::Basename; my $f = '../blah.txt'; my $dir = dirname( File::Spec->rel2abs($f) );