use FindBin; use File::Spec; my $path = File::Spec->catdir($FindBin::Bin, "..");