Select Code to Download

use strict; use warnings;
my ($x, $y, $z) = (-11,-13,4);
...
    }
}
print "max odd: ", $max || "not found","\n";

use strict; use warnings;
my ($x, $y, $z) = (-11,-13,4);
...
    }
}
print "max odd: ", $max || "not found","\n";