$file = $req->param("FileName");
while ($bytesread = read($file, $buffer, 1024)) {
...
}

predava se file handler s koito ot perl-a se chetat dannite :)