#!/usr/bin/perl

print "Podaj liczbe arabska z przedzialu 1-3000\n";
chomp( $nr = <STDIN> );
if($nr < 1 or $nr > 3000)
{
    print "liczba nie miesci sie w przedziale!\n";
    return;
}
print "d";
@arabskie = {1000,900,500,400,100,90,50,40,10,9,5,4,1};
print $arabskie[1];
print "e";
@rzymskie = {"M","CM","D","CD","C","XC","L","XL","X","IX","V","IV","I"};
$liczbarz='';

print $arabskie[2];
for($i=0; $i<@arabskie.length; $i++)
{

   while($nr >= @arabskie[$i])
    {
        $liczbarz += @rzymskie[$i];
        $nr -= @arabskie[$i];
    }
}
print $liczbarz;