Select Code to Download

use Cwd;
sub TIESCALAR {bless {} => shift}
...
sub STORE     {defined $_[1] and (chdir $_[1] or die $!)}
our $cwd;
tie $cwd => __PACKAGE__;