Get Prevoius date in mysql or perl

[ashab27]

hi,

I have written the perogram in perl

and i want take previous date in "April 3 2010" in this formate .

plz tell me how can i get this.

#!use/bin/perl

use Date::Format;


my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime();
my @weekday = qw(Sunday Monday Tuesday Wednesday Thursday Friday Saturday);
my @month = qw(January February March April May June July August September October November December);
$year += 1900;
my $currentdate =  "$month[$mon] $mday $year";
printf"$currentdate\n";

# output : April 3 2010
my $date;
foreach my $i (0..1)
{
$date = localtime(time() - 60*60*24*$i);

}
  printf "$i day(s) ago: $date\n";
	printf"Yesterday was $date\n";

$date --date='1 day ago' 

printf"$date";