HTML: <form action="some.cgi" method="post" enctype="multipart/form-data">

PERL:
my $image = $query->param('image');
my $lgimage = &upload_file($image,"../acme/images/products"); 

. . .

sub upload_file {

   $| = 1;   #flush the output buffer
   my ($sourcefile,$path) = @_;
   my ($buffer, $bytes);
   
   $sourcefile =~ /([\w .-]+)$/i;     #strip off path stuff
   my $newfile = $1;
   $newfile =~ s/ //;

   open (OUTFILE, ">$path/$newfile") or die "Cannot open $newfile: $!";
   binmode(OUTFILE) or die "Cannot binmode: $!";

   while (read($sourcefile, $buffer, 1024) or die "Cannot read sourcefile: $!") {
      print OUTFILE $buffer or die "Cannot print to buffer: $!";
   }

   close(OUTFILE) or die "Close: $!";
   chmod (0664, ">$path/$newfile") or die "Cannot chmod: $!";
   
   return ($newfile);

}