use Spreadsheet::WriteExcel;

    sub makeExcelFile {

    # Create a new Excel workbook
    my $workbook = Spreadsheet::WriteExcel->new('perl.xls');

    # Add a worksheet
    $worksheet = $workbook->add_worksheet();

    #  Add and define a format
    $format = $workbook->add_format(); # Add a format
    $format->set_bold();

    # Write a formatted and unformatted string, row and column notation.
    $worksheet->write(1,1,'Open',$format);
    $worksheet->write(1,2,'Send',$format);
    $worksheet->write(1,3,'Subjet',$format);
    $worksheet->write(1,4,'Percent',$format);
    my $rowaux =2;
    while ($rowaux <=10 ) {
        $worksheet->write($rowaux,1,'a');
        $worksheet->write($rowaux,2,'b');
        $worksheet->write($rowaux,3,'c');
        $worksheet->write($rowaux,4,'d');
        print $rowaux;
        $rowaux ++;
    }