perl..huh?

#!/usr/bin/perl

# declare vars
$league_id = $ARGV[0];
$lang = "en-US"; #change if you need

# declare helpers
sub trim($);

# use module
use XML::Simple;

# create object
$xml =             new XML::Simple;

# read XML file
$uri =             "http://www.footbo.com/widgets/xml/teamgames.aspx?id=194276".$league_id."&LANGUAGE=".$lang;
$file =         `curl -s --connect-timeout 45 $uri`;
$standings =         $xml->XMLin($file);

# print table info
print " NAME";
print " MAN U";
print " THEM";
print "\n";

# print games
$node = "pastgames";
# for ($i=0; $i <20; $i++)
{
  $name =         $node->{game}->{guestteam}->{Fullname};
  $manu =         $node->{game}->{hometeam}->{score};
  $them =         $node->{game}->{guestteam}->{score};


  print "$name";
  print "$manu";
  print "$them";
  print "\n";
}

# helpers
sub trim($)
{
    my $string = shift;
    $string =~ s/^\s+//;
    $string =~ s/\s+$//;
    return $string;
}