use Spreadsheet::SimpleExcel;

binmode(\*STDOUT);
my $excel = Spreadsheet::SimpleExcel->new();

# mache aus dif xls, z.B.
$excel->add_worksheet('Test');
$excel->add_row([1,2,3]);

print $excel->output();