Formular mit Datei-Upload

[Yakumo]

ach so... ich hab schon ein Beispiel im www gefunden, aber ich konnt die beiden Scripte nicht vereinen...

my $cgi = new CGI; # neues Objekt erstellen
print $cgi->header(-type => 'text/html');
my $file = $cgi->param("myfile");
my $fname = $cgi->param('myfile');
open DAT,'>'.$fname or die 'Error processing file: ',$!;
binmode $file;
binmode DAT;
my $data;
while(read $file,$data,1024) {
  print DAT $data;
}
close DAT;

Gruß
Yakumo