при

%q = new CGI -> Vars;

и

while ($bytesread = read($q{'file'}, $buf, 1024))
{
print A $buf;
}

файл получается размером 0 байт. если заменить

%q = new CGI -> Vars;
на
$q{'file'}=param('file');
файл получается нормальный. Как бы сделать так, чтобы работал первый случай?