Fehlermeldung mit der Methode "mail"

[safir]

Hi Erwin,

Mein Code sieht folgende Massen aus:
----
#!c:/Perl/bin/perl.exe
use CGI ':standard';
use Net::SMTP;
use strict;
use CGI::Carp qw(fatalsToBrowser);

my $mailFrom = '[e-mail]';
my $subj = 'Testmail';
my $text = 'Testemail von mir selber';

my $mailServer = 'mail.xxx.ch';
my $smtp = Net::SMTP->new($mailServer) or die("Fehler: $!");
my $mailTo = '[e-mail]';

my $message = <<"MSGTEXT";
From: $mailFrom
To: $mailTo
Subject: $subj

Message:
--------
$text

MSGTEXT

$smtp->mail($mailFrom);
$smtp->to($mailTo);
$smtp->data($message);
$smtp->quit;

print header();
print "ENDE";
----

und Zeile 12 ist:
----
my $smtp = Net::SMTP->new($mailServer) or die("Fehler: $!");
----

Ich danke dir fuers Geduld :)

gruss
safir