sub TIESCALAR { my $class = shift; my $name = shift; my $city = system("/bin/cat", "$name\.city"); return bless \$city, $class; }