---- Headers returned by code below HTTP/1.0 200 OK Content-Type: text/html Client-Date: Thu, 08 Jan 2004 12:51:58 GMT Client-Peer: 172.16.110.12:80 Client-Response-Num: 1 Refresh: 0; URL=https://www.cieups.com/ups.app/xml/Rate/ ##

##

---- Begin program
#!/usr/bin/perl

use XML::Parser;
use LWP::UserAgent;

$lwp=LWP::UserAgent->new;
$lwp->proxy(['http','https'],'http://zzzzz:xxxx@172.16.110.12:80/');
$XML=<

  xxxxx
  xxxx
  xxxxx



  
    
      Rating and Service
      1.0001
    
    Rate
    shop
 
  
  01
  
  
    
      
    30076
      
    
    
      
    30041
      
    
    
    11
    
    
      
        02
        Package
      
        Package
      
      Rate Shopping
      
        33
      
     
    
  

XML
push @{ $lwp->requests_redirectable }, 'POST';
$request=HTTP::Request->new(POST =>'https://www.cieups.com/ups.app/xml/Rate/');
$request->header('content-type'=>'application/x-www-form-urlencoded');
$request->header('content-length'=>length($XML));
print length($XML);
$request->content($XML);
$response=$lwp->request($request);

print "\n";
#print $request->as_string;
#äprint $response->status_line;
#print $response->content;
print $response->as_string;