Help for this page

Select Code to Download

Select or download this

sub DESTROY {
  my $s = shift;
  undef(%$s)
}