Select Code to Download

use warning; # needs to be use warnings;

...
if ( !defined $book ) {
    die $parser->error(), ".\n";
}

if ($source =~ /1/) {
    $file  = $excl->add_worksheet('Texas');
}