#!perl -wT
use strict;
use CGI;

# Basic CGI.pm form usage.

my $query = new CGI;

print $query->header;
print $query->start_html("CGI.pm Basic form.");

print $query->start_form;
print "<b>To:</b>";
print $query->textfield('to');
print "<b>From:</b>";
print $query->textfield('from');
print "<b>Message:</b>";
print $query->textfield('body');
print "<p>",$query->reset;
print $query->submit('Action','Stumbit');
print $query->endform;
print "<hr>";
print "YOUR potential business is VERY IMPORTANT  .... etc";


print $query->end_html;

# Later on parse your $to $from etc from $query->param('nameofvalues') instead of $formdata{'nameofvalues'}
# and do your mailing, prefferably with a module from CPAN