Select Code to Download

use Spreadsheet::WriteExcel
my $workBook = Spreadsheet::WriteExcel -> new ( "report.xls" );

...
                 write_excel ( $workSheet );                 
       }
}

sub create_excel {
        my $name = shift;

...

        return $worksheet;
}