package main; use vars qw /$dir/; tie $dir => 'Chdir'; $dir = '/tmp'; print "Dir = " . `pwd`; { local $dir = '/etc'; print "Dir = " . `pwd`; } print "Dir = " . `pwd`;