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