Select Code to Download

use Spreadsheet::WriteExcel;

my $workbook  = Spreadsheet::WriteExcel->new("Example.xls");
...

$worksheet->write_string(0, 4, '$77,777');
$workbook->close();