Select Code to Download

cheako@arcadia:~$ perl
warn unpack("B620",pack(
...
01010100111110100101010010000001
00000000000010111001110101000000 at - line 1.

my@argsforpacksend_sntp_packet=($client_li_vm_mode ,
+ $client_stratum , $client_poll , $client_precision , $client_root_de
+lay , $client_dispersion , $client_reference_identifier , $client_ref
...
+ient_transmit_sec , $client_transmit_microsec);  warn Dumper \@argsfo
+rpacksend_sntp_packet;
  my $send_sntp_packet = pack "B8 C3 N10 B32", @argsforpacksend_sntp_p
+acket;
warn unpack("B384",$send_sntp_packet)