All pastes #12383 Raw Edit

Untitled

public text v1 · immutable
#12383 ·published 2005-05-22 19:25 UTC
rendered paste body
#!/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";