use Math::Roman qw/roman/;
say roman($_) for 1..2012'