Help for this page

Select Code to Download

Select or download this

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

Select or download this

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