$rptname= "summary".$date.".txt";

print "Date:      ", $date,"\n";
print "Report:  ", $rptname,"\n";
#########################################################
#This will email the report

open (sendmail, "|/usr/sbin/sendmail myname\@company.com");
$rptname;
close(sendmail);