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();