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

&func(@ARGV);
{
	my $closure_workbook;
	
	sub func {
		my $file = 'perl.xlsx';
		my $book = Excel::Writer::XLSX->new($file);
		if (@_) {
			$closure_workbook = $book;
		}
		my $worksheet = $book->add_worksheet();
		$worksheet->write(0, 0, 'Hi Excel!');
	}
}