#!/usr/local/bin/perl

use warnings;
use strict;

use Spreadsheet::WriteExcel;

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