Untitled

<body>
   <form action="form.cgi" method="get">
</form>

<h1>Feedback Form</h1>
<p>Please fill out the entire feedback form.</p>
<table>
<tr>
<td><b>To (recipient's e-mail address):</b></td>
</tr>
<tr>
<td><input type = "text" name = "mailTo" size = "40"  /></td>
</tr>
<tr>
<td><b>From (your e-mail address):</b></td>
</tr>
<tr>
<td><input type = "text" name = "mailFrom" size = "40" /></td>
</tr>
<tr>
<td><b>Enter a subject:</b></td>
</tr>
<tr>
<td><input type = "text" name = "subjectLine" size = "40" /></td>
</tr>
<tr>
<td><b>Enter your message:</b></td>
</tr>
<tr>
<td><textarea name = "message" rows = "10" cols = "50"></textarea></td>
</tr>
<tr>
<td></td>
</tr>
<tr>
<td><input type = "submit" name = "sbutton" value = "Submit" />
<input type = "reset" value = "Reset" /></td>
</tr>
</table>

<br><br><br><br><br>


 </div>
 </body></html>


 PERL/CGI form CODE

  #!/usr/bin/perl
  use Modern:: Perl;
  use Mail::Sendmail;

  my $mailFrom = email@email';

  my $subjectLine = "Sample Subject:l
  my $message = "Sample Message!";
  my %mail = ( To      => $mailTo,
         From    => $mailFrom,
     Subject => $subjectLine,
     Message => $message,
          'Content-Type' => 'text/plain'
         );

   if ( sendmail %mail )
      {
   print "Sucessfully sent mail to $mailTo. Check you box! n";
      }
     else
      {
    print "Error sending mail: $Mail::Sendmail::error n";
      }