# get the date of yesterday
my $nowsecond = time ();
my $yestersecond = $nowsecond - 24 * 60 * 60;
my @yesterdate = localtime ($yestersecond);
my ($day, $month, $year) = ($yesterdate[3], $yesterdate[4], $yesterdate[5]);
$day = sprintf("%.2d", $day);
$month = sprintf("%.2d",$month+1);
$year = $year + 1900;