bin/generate_spreadsheet


1
2
3
4
5
6
7
8
9
10
11
12
13
14

#!/usr/bin/env perl
use strict;
use warnings;
# PODNAME: generate_spreadsheet

use Spreadsheet::Template;

my $template = Spreadsheet::Template->new;
my $in = do { local $/; <> };
my $out = $template->render($in);
open my $fh, '>', 'out.xlsx';
binmode $fh;
$fh->print($out);
$fh->close;