Select Code to Download

use strict;
use warnings;
...
    my ( $self ) = @_ ;
    carp "DESTROY <x: $self->{name}> <PHASE: $::PHASE>";
}

C:/Strawberry/perl/bin\perl.exe -w d:/tmp/pm/berny_open.pl 
DESTROY <x: extra block> <PHASE: 1> at d:/tmp/pm/berny_open.pl line 16
+.
...
TEST=HASH(0x1ca7e8)
TEST=HASH(0x1ca8f0)