unshift @ARGV, $rfile;
while( <> ) {
  # ....
}