Arguments -t and -v allow easy setup of $TEST and $DBG respectively.
Also reports 1.00 as --version now.
use Data::StarCraft::PvPGN::Report;
use Data::Dumper;
+our $VERSION = '1.00';
+
our $DBG = 0;
our $TEST = 0;
+use Getopt::Long qw(:config bundling auto_version auto_help);
+GetOptions(
+ "verbose|v!" => \$DBG,
+ "test|t!" => \$TEST,
+);
+
my $path = $ARGV[0] or die "Usage: $0 FILE\n";
my ($name) = $path =~ m{([^/]+)$};
my $report = Data::StarCraft::PvPGN::Report->open("$path.txt")