#!/usr/bin/perl -w
use CGI qw/:all/;
use CGI::Carp qw(fatalsToBrowser);
use Date::Calc qw(leap_year);
$year = 2000;
print <<blk1;
content-type: text/html

<html>
<head>
</head>
<body>
print "$year is a leap year\n" if ( leap_year($year) );
</body>
</html>
blk1
