#!/usr/bin/perl -w
use CGI qw/:all/;
use CGI::Carp qw(fatalsToBrowser);
#
use strict;
use warnings;
use Date; #::Calc; # qw/Delta_Days/;
 
my @first = (2001, 9, 12);
my @second = (2004, 3, 11);
#my $dd = Delta_Days( @first, @second );
 
#print "Difference in days: $dd\n";

#
#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 "There were days between Nat and Bree\n";
</body>
</html>
blk1
