while ( (sysread($socket, $incoming, 1024) != 0) {
 print $incoming;
}