use Path::Class qw(dir);
  
my $dir = dir();           # current directory
my $parent = $dir->parent; 

# or more directly

$parent = dir()->parent;