#!\C:\Perl\bin\perl.exe
#
use IO::Socket;

my $sock = IO::Socket::INET->new(qq(127.0.0.1:51234));


{
print $sock qq(sel 8767\n);
print $sock qq(slogin superadmin ******\n);
print $sock qq(msgall @ \n);
while () {
print $sock qq(msgall @ ==========\n);
print $sock qq(msgall @ \n);
print $sock qq(msgall @ \n);
print $sock qq(msgall @ ==========\n);
print $sock qq(msgall @ Please dont idle on this Teamspeak Server\n);
print $sock qq(msgall @ Guest User Change Please your Nickname\n);
sleep 120;
}
}