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