if(sysread(SOCK,$buf,1024)){
  print $buf,"\n";
}