safir: Fehlermeldung mit der Methode "mail"

Beitrag lesen

Hallo leute,

ich versuche seit einiger Zeit einen Mail-Versand zu realisieren
mittels des Moduls "Net::SMTP". Ich erhalte aber folgende
Fehlermeldung im Browser, die ich nicht so ganz verstehe!!!
-----
Can't call method "mail" on an undefined value at C:/Programme/Apache Group/Apache2/cgi-bin/xy.cgi line 25.
-----

meine CGI sieht folgende massen so aus:
-----
#!c:/Perl/bin/Perl.exe
use CGI ':standard';
use Net::SMTP;
use strict;
use CGI::Carp qw(fatalsToBrowser);

my $mailFrom = 'xy1@xxx.com';
my $subj = 'Testmail';
my $text = 'Testemail von mir selber';

my $mailServer = 'xx.xxxx.xxx';
my $smtp = Net::SMTP->new($mailServer);
my $mailTo = 'xy2@xxx.ch';

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

Message:
$text
MSGTEXT

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

print "Content-Type: text/html\n\n";
print "Erfolgreich versendet";
-----

Ich bitte um hilfe. Ich danke euch im Voraus
Gruss
safir