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