open(REQUESTS,"/home/picturesea/housekeeping/requestsdeadline3.txt") || die "requestsdeadline3 file not found";
# Open The Mail Program
open(MAIL,"|$mailprog -t");
@requests = split(/-|/, );
foreach $requests (@requests) {
print MAIL "Bcc: $requests\n";
print MAIL "Subject: PICTURE SEARCH request - deadline expired\n\n";
print MAIL "$requests";
print MAIL "$requests";
print MAIL "$requests";
print MAIL "$requests";
}
close(REQUESTS);