my ($flag, $b1, $b2, $b3, $b4, $nextpass) =
    unpack ( "iiiiiZ*", $received_binary_struct );
 
  my $binary_struct_to_send = 
    pack ( "iZ*", $answer, $prevpass );