#!/usr/bin/perl -w
use CGI qw/:all/;
use CGI::Carp qw(fatalsToBrowser);
#
use strict;
use warnings;
use Date::Calc qw(Add_Delta_Days);
($year, $month, $day) = Add_Delta_Days(1985,11,4,60);

#
#use DBI;
#my $dbh=DBI->connect('dbi:mysql:parc_demog:localhost','parcdemog','parc9904')or die "Couldn't connect to database: " . DBI->errstr;
#use Date::Calc qw(Delta_Days);
#@bree = (1981, 6, 16);      # 16 Jun 1981
#@nat  = (1973, 1, 18);      # 18 Jan 1973
#$difference = Delta_Days(@nat, @bree);
#$dbh->disconnect();
print <<blk1;
content-type: text/html

<html>
<head>
</head>
<body>
print "Year is $year";
</body>
</html>
blk1
