sub IO::Handle::DESTROY {
   !$IO::Handle::i++ and print($_);
}

# Abracadra, Associat STDIN, STDOUT and STDERR with IO::Handle.
$anyvar = bless([]);

$_ = "Just another Perl hacker.\n";

# IO::Handle::DESTROY is now called for STDIN, STDOUT and STDERR.