open (my $RF, '>', 'testFile');