Select Code to Download

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

#!/usr/bin/perl -w

...
  t_send* foo = perl_packed;
  printf ( "send: %d,%s\n", foo->answer, foo->prevpass );
}