Select Code to Download

my @bytes = map { sprintf('%02X', $_) } 0..255;

...
foreach my $n (@bytes) {
   print("$i$j$k$l$m$n\n");
}}}}}}

use Algorithm::Loops qw( NestedLoops );

...
      print(join('', @_), "\n");
   }
);