Select Code to Download

s!.!y$IVCXL426(-:$XLMCDIVX$dfor$$_.=5x$&*8%29628

s!.!y$IVCXL91-80$XLMCDXVIII$dfor$$_.=4x$&%1859^7

use strict;
use Roman;
...
    $r eq $p2 or die "p2: expected '$r' got '$p2'\n";
}
print "all tests successful\n";