use Mail::Sendmail;

sendmail(
  To      => $to,
  From    => $from,
  Subject => $subject,
  Body    => <<END_OF_BODY,
Name: $name
EMail: $email
Address_line_1: $address1
Address_line_2: $address2
City: $city
State: $state
Zip: $zip
Home_Phone: $homephone
Work_Phone: $workphone
Type_of_Business: $business
Goals: $goals
Comments: $comments
END_OF_BODY
) or print "Failed to send message [$subject] to [$to]: $Mail::Sendmail::error\n";