$date=ParseDate("today");

my @city=("C","K","D");
my ($j,$fut);
$fut=ParseDate("in 90 days");
for ($j=0;$j<3;$j++) 
{
	my $i;

	for ($i=1;$i<90;$i++) 
	{
#		$date=ParseDate("in 1 day");
		$date= UnixDate( $date => '%Y-%m-%d' );
		print "Date: $date\n";
#		$rows=$dbh->do("INSERT INTO appCancel (appt_date,status, no_cancel, city)

#		                VALUES              ('$date','U','0', '$city[$j]')") ||

#		          	die "Couldn't insert record : $DBI::errstr";
		$date=ParseDate("in 1 day");
		print "Date: $date\n";

	}
	
}