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

print "Date:   ",$date,"\n";
print "Report:  ", $rptname,"\n";
open (RPT, "> $rptname") || warn "Unable to open report file: $!\n";
system (mailx -s \"Summary Report\" myname\@mycompany.com < $rptname");