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