okay, i have code an IDLE kick script in Perl.
I need beta tester .
please try only with SA Staus.


code:

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

print "KICK_ALL_IDLERS_Script Version 1 by xT\n\n";
{
print "Your Server IP+TCPport(defaultport=51234) : ";
chomp ($ip = <STDIN>) ;
exit if $ip eq "q" ;
}

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

{
print "Your Server Port : ";
chomp ($in = <STDIN>) ;
exit if $in eq "q" ;
}
{
print "Your Login Account name : ";
chomp ($in = <STDIN>) ;
exit if $in eq "q" ;
}

{
print "Your Login Account Password : ";
chomp ($on = <STDIN>) ;
exit if $on eq "q" ;
}
{
print "please,choice your idle time : ";
chomp ($time = <STDIN>) ;
exit if $time eq "q" ;
}
{
print $sock qq(sel 8767\n);
print $sock qq(slogin $in $on\n);

print $sock qq(ki $time 1 does not idle please\n);
print $sock qq(ki $time 2 does not idle please\n);
print $sock qq(ki $time 3 does not idle please\n);
print $sock qq(ki $time 4 does not idle please\n);
print $sock qq(ki $time 5 does not idle please\n);

print $sock qq(ki $time 6 does not idle please\n);
print $sock qq(ki $time 7 does not idle please\n);
print $sock qq(ki $time 8 does not idle please\n);
}
{
print "\nWe did Ok , all idlers with $time minutes was kicked.....\n";
print "\n\nWhen you will Public messgae with idlers-kick,\nThen you musst press a arbitrary gropes\n";
print "When you doesnt will this you musst press q and enter\n";
}
chomp ($name = <STDIN>) ;
{
print $sock qq(msg @ OK , all Idlers with $time min idle time ,was kicked from Server\n);
print ".........\n";
chomp ($name = <STDIN>) ;
}