latin: common tool to dump static perl include

[sheet.git] / tools / perlinc-static

diff --git a/tools/perlinc-static b/tools/perlinc-static
new file mode 100755 (executable)
index 0000000..4edf5ac
--- /dev/null
+++ b/tools/perlinc-static
@@ -0,0 +1,8 @@
+#!/usr/bin/env perl
+use 5.014;
+use warnings;
+
+use Data::Dumper;
+
+my @data = do $ARGV[0] or die $@;
+print Data::Dumper->new([\@data])->Terse(1)->Quotekeys(0)->Indent(1)->Dump;