use strict;
use Cwd "cwd";
use Path::Class ();
use File::Spec ();

my $dir = Path::Class::Dir->new( File::Spec->rel2abs( cwd() ) );
print "OH HAI, IZ IN $dir!\n";

my $target = eval { $dir->parent->parent } or
    die "Couldn't find the grandparent of '$dir': $@";

chdir($target) or die "Couldn't chdir($target)";
my $cwd = cwd();
print "OH HAI AGIN, IZ IN $cwd!\n";