use strict;
use warnings;
use Excel::Writer::XLSX;

my $file = (@ARGV) ? 'perl_bug.xlsx' : 'perl_good.xlsx';
my $book = Excel::Writer::XLSX->new($file);
my $worksheet = $book->add_worksheet();
$worksheet->write( 0, 0, 'Hi Excel!' );