Formular mit Datei-Upload

[Yakumo]

Hallo,
also ich hab ein Formular mit dem ich Benutzerdaten einlese und daraus mittels Perl eine Textdatei erstelle. Klappt auch super. Jetzt möchte ich aber noch, dass der User eine Datei mit hochladen kann. Was ich dafür in HTML machen muss, weiß ich schon, aber wie gehe ich mit der Datei in Perl um. Über STDIN geht das doch nicht?

So sieht bisher mein Script aus:

read(STDIN, my $Daten, $ENV{'CONTENT_LENGTH'});
my @Formularfelder = split(/&/, $Daten);
my ($Feld, $Name, $Wert);
my %Formular;
foreach $Feld (@Formularfelder) {
  (my $Name, my $Wert) = split(/=/, $Feld);
  $Wert =~ tr/+/ /;
  $Wert =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
  $Wert =~ s/</&lt;/g;
  $Wert =~ s/>/&gt;/g;
  $Formular{$Name} = $Wert;
 }
...