my $ua = LWP::UserAgent->new;
      my $remote_server = "100.100.100.100/ReceivingPage.asp?username=test&password=pwd";
 my $req = HTTP::Request->new(GET=>"http://$remote_server");
my $res = $ua->request($req);


      if ($res->is_success) {
          $req = HTTP::Request->new(POST=>"http://$remote_server");                                                                                   $req->content_type('application/x-www-form-urlencoded');

              my $postvars = $request_xml;
             $req->content_length(length($postvars));
             $req->content($postvars);
             $res = $ua->request($req);

         if ($res->is_success) {
              my $xml_raw = $res->content;
              my $parsed = eval {XMLin($xml_raw) };
      ...