$header = "Return-Path: $from\r\nFrom: $from\r\nTo: $recipient\r\nReply-To: $from\r\nSubject: Subject Here";

open (MAIL, "|$mailprog $recipient");
print MAIL $header."\n\n";