03872 30263 XXXXX 100 S XXXXX XXXXX 50 XXXXX P ##

##

#!/usr/bin/perl -w
use strict;
use SOAP::Lite;

my $soap = SOAP::Lite 
   ->uri('java:com.usfc.usfnet.webservice')
   ->proxy('http://www.usfnet.com/WebServices/HostService') 
;

print $soap->doRateQuote(XML FROM ABOVE)->result();