Select Code to Download

package Camel;
use strict;
...
sub DESTROY {
  print "My camel has sadly passed away.\n";
  }

use strict;
use Camel;
...
  my $jimmy=Camel->new();
}
#$jimmy is now out of scope and will be DESTROYed.