Something

while () {
	print $ts2 "pl\n"; 
	$answer = <$ts2>;
	$answer = <$ts2>;
	while ($answer ne "OK\r\n") {
		my @pl = split ("\t",$answer);
		my $p_id = $pl[0];
		my $c_id = $pl[1];
		my $ps = $pl[2];
		my $bs = $pl[3];
		my $pr = $pl[4];
		my $br = $pl[5];
		my $pl = $pl[6];
		my $ping = $pl[7];
		my $logintime = $pl[8];
		my $idletime = $pl[9];
		my $cprivs = $pl[10];
		my $pprivs = $pl[10];
		my $pflags = $pl[12];
		my $ip = substr($pl[13],1,-1);
		my $nick = substr($pl[14],1,-1);
		my $loginname = substr($pl[15],1,-1);
		$answer = <$ts2>;
	}
	sleep $REPEAT_TIMER;
}