#!/usr/bin/perl -w use CGI qw/:all/; use CGI::Carp qw(fatalsToBrowser); use Date::Calc qw(leap_year); $year = 2000; print < print "$year is a leap year\n" if ( leap_year($year) ); blk1