sub TIEHANDLE { bless \$_[1], $_[0] };;
sub CLOSE{ 0 };;
tie *FH, 'main';;
close FH or die 'Aaaaaaaaaaaaarg!';;
Aaaaaaaaaaaaarg! at (eval 12) line 1, <STDIN> line 4.