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 \'
";
print "\\n";