#!/sbcimp/run/pd/csm/32-bit/perl/5.14.2/bin/perl
use lib qw(/sbcimp/run/pd/csm/32-bit/cpan/5.14.2-2012.03/lib);
use strict;
use Spreadsheet::WriteExcel;

# Create a new Excel file
my $FileName = "/home/dujne/ptice/port.xls";
my $workbook = Spreadsheet::WriteExcel->new($FileName);

# Add a worksheet
my $worksheet1 = $workbook->add_worksheet('PERL');

# Define the format and add it to the worksheet
my $format = $workbook->add_format(
center_across => 1,
bold => 1,
size => 10,
border => 4,
color => 'black',
bg_color => 'cyan',
border_color => 'black',
align => 'vcenter',
);

# Change width for only first column
$worksheet1->set_column(0,0,20);

# Write a formatted and unformatted string, row and column
# notation.
$worksheet1->write(0,0, "PERL FLAVOURS", "Modules",$format);
$worksheet1->write(1,0,"Active State PERL");
$worksheet1->write(2,0,"Strawberry PERL");
$worksheet1->write(3,0,"Vennila PERL" );

##</code><code>##

$worksheet1->write(0,1,"Modules", $format);
$worksheet1->write(1,1,"Excel");
$worksheet1->write(2,1, "Dumper");

##</code><code>##

MODULES
Excel
Dumper

##</code><code>##

MODULES  Excel  Dumper