#!/usr/local/bin/perl
#config.pl
#Contains all the configuration details
use strict;
use vars qw (
              $workbook $worksheet 
              );
$workbook = 0x0;
$worksheet = 0x0;
1;

##</code><code>##

#!/usr/bin/perl -w
#main.pl
use strict;
use Spreadsheet::WriteExcel;
BEGIN {require "config.pl"};

# Create a new workbook called simple.xls and add a worksheet.
$workbook  = Spreadsheet::WriteExcel->new('simple.xls');
$worksheet = $workbook->add_worksheet();

# The general syntax is write($row, $column, $token).
# Note that row and column are zero indexed.

# Write some text.
$worksheet->write(0, 0,  'Hi Excel!');