while ($requests = <REQUESTS>) {
      if ($requests ne "\n") {
          print MAIL "$requests";
      }
      }