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.
DESTROY <x: head if> <PHASE: 4> at d:/tmp/pm/berny_open.pl line 32.
TEST=HASH(0x1ca7e8)
TEST=HASH(0x1ca8f0)