use strict;
my $file = ">gamelog.txt";
open $file, $file or die;