open DATA, "/tmp/1.bin"; read DATA, $data, 223; close DATA; print $socket $data;