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

my $dir_parent = File::Spec->rel2abs(
	File::Spec->catdir(
		dirname(__FILE__),
		'..'
	)
);