if(length($receivedXML)>500) 
     { 
      $ENV{XML_SIMPLE_PREFERRED_PARSER} = "XML::Parser"; 
     } 
     else 
     { 
      $ENV{XML_SIMPLE_PREFERRED_PARSER} = "XML::LibXML::SAX"; 
     }$receivedHash = XMLin($receivedXML,SuppressEmpty => undef);Code$faxFile = $receivedHash->{fax_file}; 
$faxFileName = $FileToSendPath . $faxJobReference . ".tif"; 
$decodedValue = decode_base64($faxFile); 
open (FH, "> $faxFileName") || die print "Cant open job $faxFileName"; 
print FH $decodedValue; 
close FH;  #XML POSTED ACROSS$xml =  "<?xml version=\"1.0\"?><pc2fax_api><function>entrust_fax_job</function><api_session_id>$session_id</api_session_id><fax_job_reference>".substr($file,rindex($file,"/")+1)."_"."$time</fax_job_reference><fax_date_time></fax_date_time><notification_address>$email</notification_address><fax_file>$Base64Data</fax_file></pc2fax_api>";