Lucky for you, there's no unique way to write Roman numerals. For instance, a valid way of writing Roman numerals is:

sub decimal_to_roman {
    my $number = shift;   # Assume valid number.
    return "I" x $number;
}
[download]

A bit boring, but this method can deal with numbers exceeding 4999!