file uplods in perl

[Johnno]

how do you upload a file in perl??

I have var $file which is the file on the local HD..  from there is where a
get into trouble..

open (OUTFILE, ">$file");
$buffer =<OUTFILE>;
print OUTFILE $buffer;
close (OUTFILE);


Johnno