eval('($junk1 , $junk2, $data0, $data1) = unpack "ssA' . $data0_length . "A" . $data1_length . '",$rcvd_buf;');