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