$_=do{sub IO::Handle::DESTROY{!$i++and print}
$i=bless[];"Just another Perl hacker.\n"}