$sock->recv($text,128)

my @lines = split /\n/, $text;
while ($lines[0] !~ /^p_id/) 
    { shift(@lines) }

my $p_id = (split /\s+/, $lines[1])[0];

print $sock "kick $p_id\n";