#!/usr/bin/perl -w
use IO::Socket;

$socket = IO::Socket::INET->new (	PeerAddr => "voice.teamspeak.org",
					PeerPort => 51235,
					Proto => 'tcp',
					Timeout => 10 );
$output = <$socket>;
print "$output";