#!/usr/bin/perl
# get current Date from MySql
use warnings;
use strict;
use DBI;
use Date::Manip;

my ($dbh, $rows);



$dbh=DBI->connect('dbi:mysql:VISA','root','elephant') || 

   die "Error opening database: $DBI::errstr\n";

my $date;
#$date = DateCalc("today","+ 90 days");
$date=ParseDate("in 90 days");
print "Date: $date\n";

$rows=$dbh->do("INSERT INTO appCancel (appt_date,status, no_cancel, city)
		                VALUES('$date'  , 'U'  , '0'      , 'M')") ||

		          	die "Couldn't insert record : $DBI::errstr";
$dbh->finish();