package Camel;
use strict;
# Warning, do not use this constructor at home kids.
# It's ugly and will scare the neighbours.
sub new {
  bless {};
}
sub DESTROY {
  print "My camel has sadly passed away.\n";
  }

##</code><code>##

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