while ( sysread $sock, $_, 1000 ) {
        print $_;
}