problema upload (filename?)

est\' takoe chudo, nada 4tobi ono umelo peredavat\' filename..
kak sdelat\' - ne znaju...podskazhite pls.!

#!/usr/bin/perl

use CGI qw(:standard);

$Name=param ("file1");
$ifilename=param("file_name");
{
    open FWR, ">$ifilename";
    binmode FWR;

    print FWR while (<$Name>);
    close FWR;
}

############## H T M L F O R M######################
print "Content-type:text/html\\n\\n";

print "\\n";
print "

Type the names of files to be uploaded:

";

print $Name, "\\n";
print $buf, "\\n";
print \'\',"\\n";
print "
1.\\n";
print "";
print "

\\n";
print "

\\n";
print "

";
print "\\n";

[Green Kakadu]

См. документацию по CGI, в частности функцию upload
а еще на этом форуме в ФАКе, Chs цельный, работоспособный  код скрипта загрузчика файлов привел