my $ua  = new LWP::UserAgent;
   my $res = $ua->request(POST 'http://myserver.com/Parse.pl',
                          Content_Type => 'form-data',
                          Content      => [file => ['Test.ini']]);

##</code><code>##

   my $query    = CGI->new();
   my $file     = $query->param('file');
   my $mimetype = $query->uploadInfo($file)->{'Content-Type'};
   my $data;

   binmode $file if $mimetype !~ /text/;

   while (read ($file, $data, 1024)) {
       # do something with data
   }


##</code><code>##

   my $ua  = new LWP::UserAgent;
   my $res = $ua->request(POST 'http://myserver.com/Parse.pl',
                          Content => $file);