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