cgi - pearl scripting

[Christine]

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::SMTP;
    my $smtp = Net::SMTP->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;
}