use Cwd;
use File::pushd;

print cwd;

{
   my $dir = pushd('subdir');

   print join("\n", glob '*');
}

# back where we started
print cwd;
print join("\n", glob '*');