I have a pearl script that will not allow the windows 2000 server I am on to post my order form...can someone tell me what coding I need for the stmp for windows - see attached file:

Any suggestions?

####
print STDOUT end_html, "\n";


exit(0);

#----------------------------------------------------------------------

sub sendMailMessage {
my $email_to = shift;
my $subject = shift;
my $order = shift;

use Net:MTP;
my $smtp = Net:MTP->new('mail.huntel.net') or return 0;
my $user = $ENV{USER};
$smtp->mail($user) or return 0;
$smtp->to($email_to) or return 0;

$smtp->data() or return 0;
$smtp->datasend("To: $email_to\n") or return 0;
$smtp->datasend("\n") or return 0;
$smtp->datasend($order) or return 0;
$smtp->dataend() or return 0;

return 1;
}