I'd write a test script that uses your object and then lets it go out of scope, as in:

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";
  }
[download]

And your test script would then do:

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

CU
Robartes-