Help for this page

Select Code to Download

Select or download this

  undef $obj ;
  ## or:
  $obj = undef ;
  ## or:
  $obj = 123 ;

Select or download this

## This is for the main package, never do that!
package main ;
...
  print "__END__\n" ; # End point! If you really lose
                      # the object the DESTROY is called
                      # before this print! Test to comment $clone.