#!/usr/local/bin/perl -w
use strict;
use WWW::Baseball::NPB;

my $baseball = WWW::Baseball::NPB->new;
my @games  = $baseball->games;

for my $game (@games) {
    my $home    = $game->home;
    my $visitor = $game->visitor;
    printf "%s %s - %s %s (%s) [%s]\n",
	$home, $game->score($home), $game->score($visitor),
	    $visitor, $game->status, $game->stadium;
}