Savadata!?

[Muhsin]

Savedata!?

Hallo Freunde, ich habe ein kleines Problem...

 #!\wampp2\perl\bin\perl.exe 
use strict; 
use CGI::Carp qw(fatalsToBrowser warningsToBrowser); 
use CGI qw(:standard); 
print header(); 
warningsToBrowser(1); 

my $htdocs_rel = "../htdocs/"; 

my $q; 
$q = new CGI; 
my $savetext =$q->param('savetext'); 
my $MT_str = $q->param('MT_str'); 

chomp ($MT_str,$savetext); 

open (NEW,">$htdocs_rel/$savetext" || die "Datei konnte nicht gespeichert werden $!") 

print NEW <<EINTRAG; 
   &MT_str= $MT_str & 
EINTRAG 
close NEW;

Wie man sieht bin ich noch ganz neu in dieser Sache!! Mein Problem ist das mein Script überhaupt nicht funktioniert. Normalerweise sollte er die Informationen die ich sende aufnehmen und letztendlich eine neue Text Datei erstellen (nicht in cgi-bin Ordner sonder inhtdocs)... was mache ich falsch

kann mir bitte einer helfen?

ps.: ist das richtig so ../cgi-bin/savedata.pl
wenn ich mein cgi Script ansprechen will

Gruß
mc64