#!/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;