Select Code to Download

#!/usr/bin/perl

...
  my @bytes = reverse sprintf('%016X', $n) =~ s/^0{8}(0{4}(00)?)?//r =
+~ /../g;
  print "$n => @bytes\n";
  }

0 => 00
2 => 02
...
2000 => D0 07
20000 => 20 4E
200000 => 40 0D 03 00