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";

##</code><code>##

my $filename = "$outputdir/players.xml";
print "\t\tfetching game: $game\n";
open(FILEHANDLE, ">", $filename)
    or die "could not open file $filename: $!\n";    
print FILEHANDLE "$game\n";