use warnings;
require LWP::UserAgent;
use HTTP::Request::Common;
my $browser = LWP::UserAgent->new();
my $url = 'http://localhost/cgi-bin/upload.cgi';
my $res=$browser->post( $url,
[file1 => ["c:/test.txt"],
file44=> ["c:\\test.txt"]],
'Content_Type'=>'form-data');
#die "URL Error: ", $res->status_line unless $res->is_success;
print $res->content;

##</code><code>##

No files were selected for uploading.

##</code><code>##

<FORM action=http://localhost/cgi-bin/upload.cgi method=post
encType=multipart/form-data><INPUT type=file name=FILE1>
<P><INPUT type=file name=FILE44>
<P><INPUT type=submit value=submit> </FORM>