<?php 

$XML = '<somexml></somexml>';

      // Post header
      $VS_header  = "POST /ivrapi.asp HTTP/1.0\r\n";
      $VS_header .= "User-Agent: IVR API\r\n";
      $VS_header .= "Host: api.voiceshot.com\r\n";
      $VS_header .= "Content-Type: text/xml\r\n";
      $VS_header .= "Content-length: ".strlen($XML)."\r\n";
      $VS_header .= "Connection: close\r\n\r\n";
      $stream = fsockopen("api.voiceshot.com", 80);    
      if($stream)
      {
        fputs($stream, $VS_header);
        fputs($stream, $XML);
        $response="";
        $header = "";
        // code for parsing out the returned header
        do $header.=fread($stream,1);
        while (!preg_match('/\r\n\r\n$/',$header));
        // Everything left is the XML response from the API
        while(!feof($stream)) $response .= fgets($stream, 1024);
        fclose($stream);
        header("Content-type: text/xml");
        echo $response;   
      }        

?>

##</code><code>##

#!/usr/bin/perl -w
use strict;
use Socket;

my ($remote,$port, $iaddr, $paddr, $proto, $line);
$remote  = 'api.voiceshot.com';
$port    = 80;

$iaddr   = inet_aton($remote) 		|| die "no host: $remote";
$paddr   = sockaddr_in($port, $iaddr);

$proto   = getprotobyname('tcp');
socket(SOCK, PF_INET, SOCK_STREAM, $proto)	|| die "socket: $!";
connect(SOCK, $paddr)    || die "connect: $!";

while (defined($line = <SOCK>)) {
print $line;
}
close (SOCK)	    || die "close: $!";
exit;