$userAgent = LWP::UserAgent->new(agent => 'perl post');
     
 $file_contents = do { local $/; <INFILE> };

	$message = $file_contents;
	 
	$response = send_xml();


	$xml_resp = $response->as_string;


sub send_xml
{

	my $request = HTTP::Request->new(POST => 'http://"servername".asmx');
  $request->header(SOAPAction => "https://"url");
  $request->content($message);
	$request->content_type('text/xml; charset=utf-8');
  my $response = $userAgent->request($request);

  $response;
}