Select Code to Download

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

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