Help for this page
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.