Formmailer umstellen auf SMTP

#!/usr/bin/perl -w

# -------> SMTP-Programm zum Versenden der Mail:
$Sendmail_Prog = /usr/sbin/sendmail;

# -------> Modul für CGI-Scripts einbinden:
use CGI;

# -------> Modul für CGI-Scripts zum Einlesen der Formulardaten anwenden:
$query = new CGI;
@names = $query->param;

# -------> interne Daten aus den erwarteten hidden-Feldern auslesen:
$delimiter = $query->param('delimiter'); # ---> Begrenzerzeichen zwischen name und value
# $mailto = $query->param('mailto');    # ---> Empfängeradresse
$mailto =->[email protected]';    # ---> Empfängeradresse
$returnhtml = $query->param('return');  # ---> URL für Dankeseite
$subject = $query->param('subject');   # ---> E-Mail-Subject
$emailadress = $query->param('E-mail');	# Email Gast
$gastname = $query->param('Name');	# Name Gast
$gastanrede = $query->param('button');	# Anrede Gast

# -------> Text der E-Mail aus den Formulardaten ermitteln:
$mailtext = ;
foreach(@names) {
 $name = $_;
 @values = ;
 @values = $query->param($name);
 if($name ne mailto && $name ne return && $name ne subject && $name ne delimiter) {
  foreach $value (@values) {
   $mailtext = $mailtext.$name;
   $mailtext = $mailtext.$delimiter;
   $mailtext = $mailtext.$value.\n;
  }
 }
}

# -------> E-Mail versenden:
open(MAIL,|$Sendmail_Prog -t) || print STDERR Mailprogramm konnte nicht gestartet werden\n;
print MAIL To: $mailto\n;
print MAIL From: $emailadress\n;
print MAIL Return-Path: $emailadress\n;
print MAIL Subject: $subject\n\n;
print MAIL $mailtext\n;
close(MAIL);

# -------> E-Mail an Gast
open(MAIL,|$Sendmail_Prog -t) || print STDERR Mailprogramm konnte nicht gestartet werden\n;
print MAIL To: $emailadress\n;
print MAIL From: $mailto\n;
print MAIL Return-Path: $mailto\n;
print MAIL Subject: Ihre Nachricht an Hotel Reitlwirt\n\n;
print MAIL Liebe(r) $gastanrede $gastname,
vielen Dank für Ihr Interesse an unserem Hotel! Wir werden Ihre Anfrage umgehend bearbeiten!

Dies ist eine Kopie Ihrer Nachricht an uns. Sie brauchen darauf nicht zu antworten.
Die Antwort auf Ihre Anfrage erhalten Sie in einer separaten Email.


$mailtext\n;
close(MAIL);


# ---------> E-Mail-Adress von Gast an Dankeseite übergeben
open (FILE, >daten/gastmail_anfrage.dat);
flock (FILE, 2);
print FILE $emailadress\n;
close FILE;

print Location: $returnhtml\n\n;