Help for this page

Select Code to Download


  1. or download this
    package H;
sub DESTROY { print "DESTROY\n"; }
...
    print "\$h out of scope\n";
}
print "why now?\n";
  2. or download this
    IN
DESTROY
$h out of scope
why now?
  3. or download this
    package H;
sub DESTROY { print "DESTROY\n"; }
...
    print "\$h out of scope\n";
}
print "why now?\n";