package Chdir;

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

##</code><code>##

package main;

use vars qw /$dir/;

tie $dir => 'Chdir';

$dir = '/tmp';

print "Dir = " . `pwd`;

{
    local $dir = '/etc';
    print "Dir = " . `pwd`;
}

print "Dir = " . `pwd`;