Select Code to Download

package foo;
use vars '$foo';
sub foo1 {
...
    $foo= shift   if  @_;
    return $prev;
}

package foo;
use vars '$foo';
sub TIESCALAR {
   return bless {}, foo::ThereIsNoSuchVariable;
}
tie $foo, 'foo';