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
+erence_timestamp_sec , $client_reference_timestamp_microsec , $client
+_originate_timestamp_sec , $client_originate_timestamp_microsec , $cl
+ient_receive_timestamp_sec , $client_receive_timestamp_microsec , $cl
+ient_transmit_sec , $client_transmit_microsec);  warn Dumper \@argsforpacksend_sntp_packet;
  my $send_sntp_packet = pack "B8 C3 N10 B32", @argsforpacksend_sntp_packet;
warn unpack("B384",$send_sntp_packet)