use Math::Roman 'roman';

my $y = roman 'MCMLXXVII';
print "$y\n" while $y++ < 2002;