use 5.008;sub UNIVERSAL::DESTROY{($_=$_[
0])=~s/=.*//;print}bless*STDIN{IO},"ha".
"cker,\n";$i=bless[],"Just ";bless*ARGV{
IO},"Perl ";bless*STDERR{IO},"another ";