package Foo;

sub new { bless { test => 1 }, $_[0] }
sub DESTROY {}

package main;
use Data::Dumper;
my $foo = new Foo;
print Dumper $foo;
$foo->DESTROY;
print Dumper $foo;