#!/usr/bin/perl -w
use strict;
use Chess::PGN::Parse;
my $filename = shift || die "filename required\n";
my $pgn = new Chess::PGN::Parse $filename
or die "can't open $filename \n";
while ($pgn->read_game()) {
print $pgn->event, " / ", $pgn->white, " - ", $pgn->black,
" : ", $pgn->result, "\n";
if ($pgn->parse_game() ) { #&& $pgn->moves) {
print join(" ", @{$pgn->moves}), "\n";
}
print "-" x 60, "\n\n";
}