package main;
use MyCwd;
use Cwd;

print cwd, "\n";

if (1)
{
 my $cwd = MyCwd->cd('..');
 {
  my $cwd = MyCwd->cd('..');
  print cwd, "\n";
 ]
 print cwd, "\n";
}

print cwd, "\n";