#!/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 < print "Year is $year"; blk1