open my $fh, '<', $rfile;