sub new{
    print 'new';
    bless{}
};

sub DESTROY{
    print'DESTROY'
};

$x=new;
$x=new;
__END__
new
new
DESTROY
DESTROY