Select Code to Download

main.pl <- B.pm <- A.pm

# normal run, will finish after 7 iterations
# 'ipcs -a' shows everything was cleaned up properly
...
# 'ipcs -a' shows a leak of a memory segment

perl main.pl 2 2 2

use strict;
use warnings;
...
}

1;

use warnings;
use strict;
...
    }
}
1;

use warnings;
use strict;
...
}

B->run(@ARGV);