プログラムは以下のようになります。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"; }