RosettaCodeData/Task/Leap-year/Perl/leap-year-1.pl

sub isleap {
    my $year = shift;
    if ($year % 100 == 0) {
        return ($year % 400 == 0);
    }
    return ($year % 4 == 0);
}