Select Code to Download

package SIGS;

# We're going to use Carp so we can get longmess
...
     } # END;

    0 == 0;

use strict;
use warnings;

...
    warn "\$DEBUG testing!";
    A(1,2,3,4,5);
    exit;

Emailing these messages:
argument is not prime
 at SIGS.pl line 16
...
        main::A(3, 4, 5) called at SIGS.pl line 17
        main::A(2, 3, 4, 5) called at SIGS.pl line 17
        main::A(1, 2, 3, 4, 5) called at SIGS.pl line 20