my $sourceurl = "http://gd2.mlb.com/components/game/aaa";
my $outputdir = "./aaa_players";
my $dayurl = "$sourceurl/year_$year/month_$mon/day_$mday/";

    my $response = $browser->get($dayurl); 
    die "Couldn't get $dayurl: ", $response->status_line, "\n"
        unless $response->is_success; 
    my $html = $response->content;
    my @games = @_;
        while($html =~ m/<a href=\"(gid_\w+\/)\"/g ){
        push @games, $1;}

# the loop that downloads data
    foreach $game (@games) {
	my $gameurl = "$dayurl/$game";
	    $response = $browser->get($gameurl);
	    die "Couldn't get $gameurl: ", $response->status_line, "\n"
		unless $response->is_success;
	    $gamehtml = $response->content;
	    if($gamehtml =~ m/<a href=\"players\.xml\"/ ) {
		$plyrurl = "$dayurl/$game/players.xml";
		$response = $browser->get($plyrurl);
		die "Couldn't get $plyrurl: ", $response->status_line, "\n"
		    unless $response->is_success;
	    $plyrhtml = $response->content;	   
	    print "\t\tfetching game: $game\n";
	       open(FILEHANDLE, ">","$outputdir/players.xml") 
		    or die "could not open file $game/players.xml: $|\n";	
	       print FILEHANDLE "$game\n";
	       close FILEHANDLE;
	    } else {
		print "warning: no player list for $game\n";
	    }