Select Code to Download

#!/usr/local/bin/perl
use Spreadsheet::XLSX;
...
  print ($saved $csvtxt) if $saved;    
close $saved;
}}

open($mainfilepath, "> $mainfilepath");