my $path = $ARGV[0] or die "Usage: $0 FILE\n";
my ($name) = $path =~ m{([^/]+)$};
my $report = Data::StarCraft::PvPGN::Report->open("$path.txt")
my $path = $ARGV[0] or die "Usage: $0 FILE\n";
my ($name) = $path =~ m{([^/]+)$};
my $report = Data::StarCraft::PvPGN::Report->open("$path.txt")