use strict;
my $val = sprintf("%4d", (localtime(time))[5]+1900);
while ($val >= 1903) {
  print "\nval : $val";
    --$val;
}