Select Code to Download

open(RPT,">$DIR/$RPT")||die"Can't open $RPT: $!\n";
print RPT "Report Date: $month/$day/$year\n";
...
   ...
}
close RPT;