guestbook

[delueks]

habe es wie folgt eingebaut! klann jemand den Fehler erkennen? Es spuckt mir immer wieder dieselbe Fehlermeldung aus, zum Probieren auf http://www.stantonmusic.it/cgi-bin/guestbook.pl

Code:
print "<font face="$font_f" size="$font_s">An unexpectet error occourred,<br>please click <a

href="$scriptname?seite=1&anzeigen=10">here</a>!";
sub sendmail {
if ($back_email == 1) {
 if ($FORM{'email'} ne "x") {my $mail = $FORM{'email'};}
 else {my $mail = $send;}

eval q^
   use Net::SMTP;
   my $smtp = Net::SMTP->new($xtcsmtp_server, Debug => 0) || die "unable to create

Net::SMTP object $xtcsmtp_server.";
   $smtp->mail($xtcwebmastermail);
   $smtp->to($usmail);
   $smtp->data();
   $smtp->datasend("To: $send\n");
   $smtp->datasend("From: $FORM{'name'} <$mail>\n");
   $smtp->datasend("X-Mailer: Perl Powered Socket Net::SMTP Mailer\n");
   $smtp->datasend("Subject: Neuer Gästebucheintrag!\n");
   $smtp->datasend("\n");
   $smtp->datasend("$mail_info_webmaster");
   $smtp->datasend("\n");
   $smtp->dataend();
   $smtp->quit();
  ^;

if($@) {
   &error("\n<br>Net::SMTP fatal error: $@\n<br>");
   return -77;
   }

}

if ($usr_mail == 1) {
 if ($FORM{'email'} ne "x") {

eval q^
   use Net::SMTP;
   my $smtp = Net::SMTP->new($xtcsmtp_server, Debug => 0) || die "unable to create

Net::SMTP object $xtcsmtp_server.";
   $smtp->mail($xtcwebmastermail);
   $smtp->to($usmail);
   $smtp->data();
   $smtp->datasend("To: $FORM{'name'} <$FORM{'email'}>\n");
   $smtp->datasend("From: $titel <$send>\n");
   $smtp->datasend("X-Mailer: Perl Powered Socket Net::SMTP Mailer\n");
   $smtp->datasend("Subject: Thanks for your guestbook entry!\n");
   $smtp->datasend("\n");
   $smtp->datasend("$mail_antwort_user");
   $smtp->datasend("\n");
   $smtp->dataend();
   $smtp->quit();
  ^;

if($@) {
   &error("\n<br>Net::SMTP fatal error: $@\n<br>");
   return -77;
  }

}

}
}