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