#!/usr/bin/perl -w
use strict;
use Chess::PGN::Parse;
use Data::Dumper;
my $filename = shift || die "filename required\n";
my $pgn = new Chess::PGN::Parse $filename
or die "can't open $filename \n";
my @games = $pgn->read_all({
save_comments => 'yes',
log_errors => 'yes'
});
print Data::Dumper->Dump([\@games], ["games"]),"\n";