Multiple Select Menue über Perl auslesen

[martinheiler]

Hallo wer kann mir helfen?

Wollte ein Multiple Select Menue auslesen, das aussieht wie folgt:
<PRE>
<select name="fsk" multiple size="1">
<optgroup label="-bitte auswählen-">
<option value="fsk[0]">unbeschränkt</option>
<option value="fsk[1]">ab 6 Jahre</option>
<option value="fsk[2]">ab 12 Jahre</option>
<option value="fsk[3]">ab 16 Jahre</option>
<option value="fsk[4]">ab 18 Jahre</option>
</optgroup>
</select>

</PRE>

dann den Inhalt splitten und darauf in eine Datei einlesen(Es darf immer nur ein Wert übergeben werden).

Wie das Ganze für die anderen Text und Formularfelder aussieht,
ist hier zu sehen:
<PRE>
sub new {

my $guest ="" ;
my $buffer ="" ;
my @paare ="" ;
my $paar ="" ;
my $val1 ="" ;
my $val2 ="" ;
my $key ="" ;
#my $fsk;
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@paare = split(/&/, $buffer);

foreach $paar (@paare){

($val1, $val2) = split(/=/, $paar);

$val1 =~ tr/+/ /;
$val1 =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$val2 =~ tr/+/ /;
$val2 =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$val2 =~ s/<([^>]|\n)*>/ /g;

$FM{$val1} = $val2;
}

################################################## #######################################

if ((!$FM{'name'} || !$FM{'beschreibung'}) || ($FM{'beschreibung'} && length($max_length)>$max_length && $max_length > 0 )) {

&er_form() ;

} else {

foreach $key (keys %FM) {

$FM{$key} =~ s/\&/\&amp\;/g;
$FM{$key} =~ s/"/\&quot\;/g;

$FM{$key} =~ s/\cM\n/<BR>/g;
$FM{$key} =~ s/\n\cM/<BR>/g;
$FM{$key} =~ s/\cM/<BR>/g;
$FM{$key} =~ s/\n/<BR>/g;
$FM{$key} =~ s/\s+/ /g;

$FM{$key} =~ s/\s+/ /g;
$FM{$key} =~ s/^\s+//g;
$FM{$key} =~ s/\s+$//g;
}

################################################## ########################
#Variablen werden in die Datei eingelesen (hier: warez.txt) #
################################################## ########################


$guest = "$datsort\|$FM{'name'}\|$FM{'beschreibung'}\|$FM{' darsteller'}\|$FM{'mb'}\|$FM{'link1'}\|$FM{'link2' }\|$FM{'link3'}\|$FM{'link4'}\|$ndate\|" ;

open (DATNEW , ">>$dat_file") ;
&LockFile(DATNEW);
print DATNEW "$guest\n" ;
close (DATNEW) ;

</PRE>

Ps: Werte für das Menü oben sind noch nicht festgelegt worden bis auf die name="fsk".
Wäre sehr Dankbar wenn mir da jemand helfen könnte!

Mfg

Allu