if($#ARGV==-1)
{
	#use current date
	$date='date--d'1 day ago'+'%Y-%m-%d'';
	chop($date);
}
else
{
	print"USAGE: summary.pl[date yyyy-mm-dd]\n";
}
$rptname="summary".$date.".txt";

print"Date:  ",$date,"\n";
print"Report: ",$rptname,"\n";
open(RPT,">$rptname")||warn "Unable to open report file: $!\n";