use strict;
use CGI;
my $q=CGI->new();
my $client = $ENV{'REMOTE_ADDR'};
my $buffer;
my $file = $q->param('upload_file');
$client =~ s/\./_/g;
open(FH,"> c:/upload/$client.txt") or die($!);
my $fh = $q->upload('upload_file');
while (<$fh>)
{
    print FH;
}

close(FH);
close(LOG);