[Perl] RomanArabic

Descrizione
Mostra il corrispondente numero romano di un numero arabo e viceversa.

Codice
use Roman;
$roman = roman(5);
print "Il corrispondente numero romano del numero arabo 5 e' $roman\n";
$arabic = arabic($roman);
print "Viceversa, il corrispondente numero arabo del numero romano $roman e' $arabic\n";
system("pause");