open my $read, '<', 'Fanggame.txt'; open my $write, '>>', 'Fanggame.txt';