$display .= "$salesperson\n";
### process input:
$salesperson = $ARGV[2];
$salesperson =~ s/%20/ /g;
$salesperson =~ s/\+/ /g
$subject = $ARGV[3];
$subject =~ s/%20/ /g;
$subject =~ s/\+/ /g
$display .= "To: $salesperson
\n";
$display .= "Subject: $subject
\n";
####
To: John Doe
Subject: Listing 12345
####
To: John
Subject: