Help for this page

Select Code to Download


  1. or download this
    perl -e "sub IO::Handle::DESTROY { print("""destroying $_[0]\n""") } $
+a=bless([]);"
  2. or download this
    destroying IO::Handle=IO(0x18214b0)
destroying IO::Handle=IO(0x1821570)
destroying IO::Handle=IO(0x18215dc)
  3. or download this
    sub IO::Handle::DESTROY {
   !$IO::Handle::i++ and print($_);
...
$_ = "Just another Perl hacker.\n";

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