(Linux) Email sent from (Perl) script, how to set FROM address

#!/usr/bin/perl
 
 
sendEmailMessage("xx-xxx\@comcast.net",
#sendEmailMessage("xxxx\@sherwxxxxxxx.com",
		 "Blocklist Test",
		 "comcast-checker\@sherwoxxxxxx.com",
		 "Hi");
 
# Input: Address, Subject, From, Message
sub sendEmailMessage {
	my $header;
	my $cmdLine;
	my $systemInfo;
	my $timeStamp;
	
	my $address	= shift;
	my $subject	= shift;
	my $from	= shift;
	my $message	= shift;
 
	#
	# form the time stamp
	#
	$timeStamp	= scalar localtime;
 
	#
	# tack on some stuff to subject, message
	#
	$systemInfo = `/bin/uname -n -s`;
	if ($systemInfo) {
		chomp($systemInfo);	# get rid of trailing \n
	}
	$subject	= "Blocking checker message: " . $subject;
	$message	.= "\n\n------------------------------------------\n" .
			   "This message was generated at $timeStamp\nFrom: " .
			   $from . "\n" .
			   "uname -n -s results: \"$systemInfo\"\n";
 
	# form the header info
	$header 	=	"Subject:$subject\n";
	$header 	.=	"From:Sherwxxxxxxxx <" . $from. ">\n";
	$header 	.=	"Reply-To:" . $from . "\n";
 
	# form the final message
	$message	=	$header . $message;
 
 
	# split it based on this
	$systemInfo = `uname`;
	chop($systemInfo);	# get rid of trailing \n
 
	# form the command line
	$cmdLine = "| /usr/sbin/sendmail $address";
	
	# send it!
	open(CMDLINE, "$cmdLine");
	print CMDLINE "$message";
	close(CMDLINE);
}