All pastes #12382 Raw Edit

Anonymous

public text v1 · immutable
#12382 ·published 2005-05-22 19:22 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";