Select Code to Download

#!/usr/bin/perl

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

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