Lav et formmail + script

selve scriptet kan se ud som følgende:

#!/usr/bin/perl
use Net::SMTP;
use CGI;
use strict;

my $q=new CGI;

my $firma = $q->param("firma");
my $adresse = $q->param("adresse");
my $telefon = $q->param("telefon");
my $person = $q->param("person");
my $besked = $q->param("besked");

if ($besked eq "") {

        print $q->start_html;
        print "<H3>De bedes skrive noget i beskeden</H3>";
        print $q->end_html;
        exit 0;
}
my $sub ="Besked til <firma>";
my $mymail ="info\@firma.dk";

my $msg = "Firma: $firma\n".
"Adresse: $adresse\n Kontakt = $person\n Telefon: $telefon\n".
"------------------\n $besked\n";

mail($mymail, $sub, $msg);

print $q->redirect("svar.html");

sub mail {
  my ($email, $subject, $mail) = @_;

          my $smtp = Net::SMTP->new('localhost');

                                        $smtp->mail();
                                        $smtp->to($email);

                                        $smtp->data();
                                        $smtp->datasend("From:besked\@firma.dk\n");
                                        $smtp->datasend("Subject:$subject\n");
                                      $smtp->datasend("\n");
                                        $smtp->datasend($mail);
                                        $smtp->dataend();
                                $smtp->quit;

}

der skal så laves en htmlside som har de korrekte navne som er angiver i param: "firma","adresse","telefon","person","besked" og en svar.html som scriptet sender brugeren videre til når formen er udfyldt.

bemærk også at sciptet forventer at der kører en smtp-server på samme maskine - eller skal du ændre "localhost" til navnet/ip-adressen på din mail-server.

Hej
hvad gemmer jeg det her som,
ja jeg spørg måske dumt men har ikke meget tjek på det her
mvh HC

well - dit perl-script skal have et navn ala mymailer.pl som du skal bruge i <form action="/cgi-bin/mymailer.pl">

Takker nu troer jeg det er på plads.
mvh HC

hvis du har flere problemer så kan du bare spørge videre.

lige en ting
skal det her ænders til min mail adresse. my $mymail ="info\@firma.dk";
mvh HC

jeps