$ perl /tmp/err.pl
superman=HASH(0x9b0d18c) at /tmp/err.pl line 8.
superman=HASH(0x9b0d18c) at /tmp/err.pl line 8.
superman=HASH(0x9b0d18c) at /tmp/err.pl line 8.
superman=HASH(0x9b0d18c) at /tmp/err.pl line 15 during global destruction.
superman=HASH(0x9b0d18c) at /tmp/err.pl line 15 during global destruction.
Warning: something's wrong at /tmp/err.pl line 15 during global destruction.
$