#!/opt/perl/bin/perl -w

use strict;

sub TIESCALAR {chomp (my $cwd = `pwd`); bless \$cwd => shift}
sub FETCH     {${$_[0]}}
sub STORE     {chdir $_[1] or die; ${$_[0]} = $_[1]}

use vars qw /$cwd/;

tie $cwd => 'main';