问个小白初学perl语言的有关问题，输入年份判断每年是闰年或平年

问个小白初学perl语言的问题，输入年份判断每年是闰年或平年
刚学习perl语言。谁能帮我看看下面的代码为什么只循环了一次，需要怎么改，才能达到我的意图，从2000到所输入的年份，判断每年是闰年或平年
#!/usr/local/perl
sub IsLeapYear {
$year = $_[0];
if($year % 100 == 0) {
if($year % 400 == 0) {
1;
} else {
0;
}
} else {
if($year % 4 == 0) {
1;
} else {
0;
}
}
}
sub test {
$year = $_[0];
for( my $i = 2000; $i < $year; $i++) {
if(&IsLeapYear($i)) {
print $i . " is leap year";
} else {
print $i . " is not leap year";
}
}
}
&test(2012);

[解决办法]

Perl code

$leapyear =    $year % 4 ? 0 :    $year % 100 ? 1 :    $year % 400 ? 0 : 1;