my $rout = '';
vec ($rout,fileno(SOCKET),1) = 1;
while (select(undef,$rout,undef,0.5)){
   syswrite SOCKET, $lines;
}
close SOCKET;