#!/usr/bin/perl -w

use lib '..';
use CGI qw(:standard);
use CGI::Carp qw/fatalsToBrowser/;

print header();
print start_html("Загрузка файла на mymesi.pp.ru");
print h1("File Upload");

print start_multipart_form(),
"Введите имя файла с путем:",
filefield('filename','', 45 ),
br,
p,
reset,submit('submit','Послать'),
endform;

open(FTXT,">$ENV{DOCUMENT_ROOT}/file.tmp") or die ("$! Error");

if ($file = param('filename'))
{
while (<$file>
{
print $_ . br;       
print FTXT $_;     
}
}
close FTXT;
print b("$file").br."\n";

print end_html;