open(MAIL,"|/usr/lib/sendmail -t") || die "Can't open sendmail: $!";

print MAIL <<REQUEST  
To: <me\@work.com>
Subject:Flow Export Request - $request_date


REQUEST
    ;
    close(MAIL);