my %mail = ( To  => $to,
      From       => $from,
      #Bcc       => ,
      #Cc         => ,
      Subject   => $subject,
      Message  => "
      Name      = $name\n
      Email      = $email\n
      etc....
      ");
	
	sendmail(%mail) or die $Mail::Sendmail::error;