Perl Script in HTML einbinden?!

[Chumscrubber]

Hallo Leute,

ich bin am verzweifeln. Ich möchte für meine Homepage ein Kontaktformular einbinden, aber hab keinen blassen schimmer, wie ich das bewerkstelligen soll.
Die HTML Datei hab ich geschrieben, aber das Perl Script is nicht von mir. Wie kann ich das folgende Script in die HTML Datei einbinden?

HTML

Sie haben Fragen zu unseren Leistungen oder Produkten?<br />
Kein Problem, wir helfen ihnen gern weiter. <p>Kontaktieren Sie uns einfach über das folgende Kontaktformular:
<table width="347" border="0">
<form id="form1" name="form1" method="post" action="">
<tr>
<td width="124">Firma:</td>
<td width="213">
<label>
<input name="Firma" type="text" id="Firma" size="35" maxlength="35" />
</label>
</td>
</tr>
<tr>
<td >Name:</td>
<td>
<label>
<input name="Name" type="text" id="Name" size="35" maxlength="35" />
</label>
</td>
</tr>
<tr>
<td>Telefonnummer:</td>
<td>
<label>
<input name="Tel" type="text" id="Tel" size="35" maxlength="18" />
</label>
</td>
</tr>
<tr>
<td>Betreff:</td>
<td>
<label>
<input name="Betreff" type="text" id="Betreff" size="35" maxlength="35" />
</label>
</td>
</tr>
<tr>
<td>eMail:</td>
<td>
<label>
<input name="eMail" type="text" id="eMail" size="35" maxlength="35" />
</label>
</td>
</tr>
<tr>
<td>Mitteilung:</td>
<td>
<label>
<textarea name="mitteilung" cols="30" rows="7" id="mitteilung"></textarea>
</label>
</td>
</tr>

<tr>
<td>
<div align="center">
<input name="loeschen" type="reset" id="loeschen" value="Löschen" />
</div></td>
<td>
<div align="center">
<input type="submit" name="senden" id="senden" value="Senden" />
</div></td>
</tr>
</form>
</table>


Perl

#!/usr/bin/perl

print "Content-type: text/html\n\n";
if ($ENV{'REQUEST_METHOD'} eq "GET")
{
$frage=$ENV{'QUERY_STRING'};
}
elsif ($ENV{'REQUEST_METHOD'} eq "POST")
{
read (STDIN,$frage,$ENV{'CONTENT_LENGTH'});
}
@frage=split(/&/,$frage);
foreach $i(0..$#frage)
{
@frage[$i]=~s/\+/ /g;
($key,$value)=split(/=/,$frage[$i],2);
$key=~s/%(..)/pack("c",hex($1))/ge;
$value=~s/%(..)/pack("c",hex($1))/ge;
$key=~s/\n/ /g;
$value=~s/\n/ /g;
$key=~s/\"/ /g;
$value=~s/\"/ /g;
$Frage{$key}=$value;
}


($sec,$min,$hour,$mday,$mon,$year,$wday,$ydat,$isdst)=gmtime();
$jahr=$year;
$monat=$mon+1;
$tag=$mday;
$jahr=$year+1900;
# Definition der Maildatei
$tempfile = 'd:\perl_temp\data\mail.tmp';

# Oeffnen der Maildatei
open( OUT, ">$tempfile" );

print OUT "From: $Frage{'Email'}\n";
print OUT "To: info\@mailadresse.de\n";
print OUT "Subject: Mail ueber das Kontaktformular Ihrer Internetseite.\n\n";
print OUT "Heute ist der $tag.$monat.$jahr .\n\n";
print OUT "Diese Daten wurden eingegeben.\n";
print OUT "Firma:$Frage{Firma}\n";
print OUT "Name: $Frage{Name}\n";
print OUT "Telnr: $Frage{Tel}\n";
print OUT "Betreff:$Frage{Betreff}\n";
print OUT "eMail:$Frage{eMail}\n";
print OUT "Mitteilung:$Frage{Mitteilung}\n";
close (OUT);

# Maildatei $tempfile ins Verzeichnis pickup kopieren
# Sie wird von dort automatisch als Mail versendet.
$maildat='copy d:\perl_temp\data\mail.tmp c:\inetpub\mailroot\pickup\mail.tmp';
`$maildat`;

# Maildatei im Verzeichnis d:\perl_temp\data anschliessend loeschen:
unlink( $tempfile );Gruß und besten Dank für die Hilfe
Chumscrubber