Select Code to Download

if($#ARGV==-1)
{
...
print"Report: ",$rptname,"\n";
open(RPT,">$rptname")||warn "Unable to open report file: $!\n";

use MIME::Lite;

...
         Filename =>'summary'.$date.'.txt');

$msg->send;