Select Code to Download

END { kill 'INT', $$ }
sub DESTROY { print "@{$_[0]}\n"; exit(14); }
my $a = bless [1];
my $b = bless [2, $a];

sub DESTROY { print "@{$_[0]}\n"; exit(14); }
my $a = bless [1];
my $b = bless [2, $a];
my $c = bless [3, $b];

3 main=ARRAY(0x80f00c4)
1

my $cleaning_up;
sub DESTROY {
...
my $a = bless [1];
my $b = bless [2, $a];
my $c = bless [3, $b];

DESTROY 3 main=ARRAY(0x80f00c4)
DESTROY 2 main=ARRAY(0x80f01b4)
DESTROY 1
CLEAN 1

use POSIX;
{
...
        $? = 0x80 + $i;
    }
}