my @date = localtime(time);
#get yesterdays date;
$date[3]--;
$date[6]--;
my $run_date=strftime("%A %e %B %Y", @date);