Select Code to Download

package Chdir;

sub TIESCALAR {my $class = shift; bless \$class => $class}
sub STORE     {${$_ [0]} = $_ [1]; chdir $_ [1]}
sub FETCH     {${$_ [0]}}

package main;

...
}

print "Dir = " . `pwd`;