file.html
<form method="post" enctype="multipart/form-data" action="upload.pl">
<input type="file" name="file">
<input type="submit" value="Upload!">
</form>


upload.pl
#!/usr/bin/perl
print "Content-Type: text/html\n\n";

$basedir = "/folder/";

use CGI;
my $req = new CGI;
my $file = $req->param("file");

if($file ne ''){

my $fileName = $file;

$fileName =~ s/.*(\/|\\)(.+)\.(gif|jpg)/$2\.$3/g;

open (OUTFILE, ">$basedir$fileName");

print "$basedir$fileName<br>";

while (my $bytesread = read($file, my $buffer, 1024)) {
print OUTFILE $buffer;
}
close (OUTFILE);

}


приходит на несколько сотен кб больше, в чем проблема...??

Ну спасибо Вам огромнейшее!!!!! Все заработало!!