プログラムは以下のようになります。andを使わない方法やandとorで作る方法もあります。
$year=<stdin>;
chomp($year);
if ($year % 400 == 0) {
print "$year年はうるう年です。\n";
} elsif ( ($year % 4 == 0) and ($year % 100 != 0) ) {
print "$year年はうるう年です。\n";
} else {
print "$year年はうるう年ではありません。\n";
}