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