Apache & Perl problemy

[Jan ' Kozo ' Vajda]

:> a) na www strance mejme formular s polozkou <input type=file ...>; nevite
:> nekdo, jak tento soubor prevzit perlovym scriptem? kde se vubec ten soubor
:> objevi? data si posilam metodou post ...

use CGI;
man CGI

priklad: ( maly ) 
--
use CGI;

$query = new CGI;
$filename = $query->param('uplfile');

# Copy a binary file to somewhere safe 
open (OUTFILE,">/tmp/$filename"); 
  while ($bytesread=read($filename,$buffer,1024)) {
    print OUTFILE $buffer;
  }
close(OUTFILE);
print $query->header;
print "O.K\n";
--


		                                   K O Z O 
                		    ===================================
                                      Look At Your Young Man Fighting
                                         Look At Your Woman Crying
                                       Look At Your Young Man Dying
                                    The Way They've Always Done Before