test script

1 files changed, 13 insertions, 0 deletions

diff --git a/bin/generate_spreadsheet b/bin/generate_spreadsheet
new file mode 100644
index 0000000..cc5df12
--- /dev/null
+++ b/bin/generate_spreadsheet
@@ -0,0 +1,13 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+
+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;