use warnings;
use strict;

use Spreadsheet::WriteExcel;

# Create a new Excel workbook
my $workbook = Spreadsheet::WriteExcel->new("perl.xls");

my $worksheet;

add_ws();

sub add_ws {
    $worksheet = $workbook->add_worksheet('Test');
}

##</code><code>##

use warnings;
use strict;

use Spreadsheet::WriteExcel;

# Create a new Excel workbook
my $workbook = Spreadsheet::WriteExcel->new("perl.xls");
my $worksheet = $workbook->add_worksheet('Test');