my $pgn = Chess::PGN::Parse->new(undef, $body);
if (!defined($pgn) || !$pgn->read_game()) {
warn "Error in parsing PGN from $url\n";
my $pgn = Chess::PGN::Parse->new(undef, $body);
if (!defined($pgn) || !$pgn->read_game()) {
warn "Error in parsing PGN from $url\n";