($SIG{__DIE__},$\,@japh)=(sub{exit},qw!I Just another Perl hacker!);
sub UNIVERSAL::AUTOLOAD{$_[0]=shift@japh} $\->Bar, print " " while 1