# Open The Mail Program
    open(MAIL,"|$mailprog -t");

    print MAIL "Bcc: $emails\n";
    print MAIL "From: chrisbarton\@postmaster.co.uk (PICTURE SEARCH)\n";
    print MAIL "Subject: PICTURE SEARCH REQUESTS $date\n\n";

 print MAIL "$date\n";
    print MAIL "-" x 75 . "\n";
    while ($requests = <REQUESTS>) {
    	print MAIL "$requests";
	}
    close(REQUESTS);