use Spreadsheet::Write;

	$h=Spreadsheet::Write->new(
        file    => 'sample.xls',
        format  => 'xls',
        sheet   => 'test');

    $h->addrow('Hello',{
        content         => 'there',
        font_weight     => 'bold',
        font_color      => 'red',
        font_face       => 'Times New Roman',
        font_size       => 10,
        font_style      => 'italic',
    });