I'm not quite sure why you insist on mimicking the broken PHP way of doing this when you can do this simply with LWP::UserAgent:

use LWP::UserAgent;
use HTTP::Request;
                                                                      
+          
# ... do your $XML
                                                                      
+          
my $age = LWP::UserAgent->new();
$age->agent('IVR API');
                                                                      
+          
my $req = HTTP::Request->new(POST => 'http://api.voiceshot.com/ivrapi.
+asp');
$req->content_type('text/xml');
$req->content($XML);
                                                                      
+          
my $response = $age->request($req);
                                                                      
+          
print $response->content();
[download]

/J\