###########################################################
require HTTP::Request;
require LWP::UserAgent;
   

#this gets the response from the iridium server
 $request = HTTP::Request->new(GET => 'https://www.NAME_OF_THE_SERVER/xml/service1.asmx/XmlResponse?request=<Request RequestTime="2009-09-07T00:20:55+00:00" Server="JOHN_DOE"><Username>USERNAME</Username><Password>PASSWORD</Password><DeliverData><MaxMessages>100</MaxMessages></DeliverData></Request>');
 
 $ua = LWP::UserAgent->new;
 $response = $ua->request($request);

 print $response;
 print $response->as_string;

open (MYFILE, '>>C:\\perl\\webservice\\data.txt'); 

print MYFILE $response->as_string; 

close (MYFILE); 
###########################################################