$top = MIME::Entity->build(Type    =>"multipart/mixed",<br>
             From    => "$name",<br>
      To      => "$in{email_address}",<br>
      Cc      => "$in{from}",<br>
      Subject => "$in{job_title}");<br>

  $top->attach(Path=>"$file_path"); <br>
       $top->attach(Data=>$name); <br>
       $top->attach(Data=>$comment); <br>
       $top->attach(Data=>$city_state_zip);<br>
       $top->attach(Data=>$in{phone});<br>
       $top->attach(Data=>$in{email});<br>
       $top->attach(Data=>$in{education});<br>
       $top->attach(Data=>$in{interest});<br>
       $top->attach(Data=>$in{experience});<br>

       open (MAIL, "| /usr/lib/sendmail -t -oi -oem") or die "cant open: $!";
       $top->print(\*MAIL);<br>
       close MAIL;<br>