+use JSON;
+
+our $VERSION = '1.00';
+
+our %get;
+while (@ARGV) {
+ $ARGV[0] =~ s/^--// or last; # --flag
+ my ($name, $val) = split /=/, shift, 2 or last; # set until empty
+ $get{$name} = $val // 1;
+}
+my $file = shift or die "Usage: $0 [--options] <input>\n";