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

sub DESTROY{
    print'DESTROY'
};

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

##</code><code>##

sub new{
    print'new';
    bless{}
};
sub DESTROY{print'DESTROY'};
$x=new;
undef $x;
$x=new
__END__
new
DESTROY
new
DESTROY