#!/usr/bin/perl

use strict;
use warnings;

my $dir = "/tmp";

foreach my $r1 (0x00 .. 0xFF) {
  my $d1 = sprintf "$dir/%02X", $r1;
  mkdir $d1 or die "mkdir $d1: $!\n";
  foreach my $r2 (0x00 .. 0xFF) {
    my $d2 = sprintf "$d1/%02X", $r2;
    mkdir $d2 or die "mkdir $d2: $!\n";
    foreach my $r3 (0x00 .. 0xFF) {
      my $d3 = sprintf "$d2/%02X", $r3;
      mkdir $d3 or die "mkdir $d3: $!\n";
      foreach my $r4 (0x00 .. 0xFF) {
        my $d4 = sprintf "$d3/%02X", $r4;
        mkdir $d4 or die "mkdir $d4: $!\n";
        foreach my $r5 (0x00 .. 0xFF) {
          my $d5 = sprintf "$d4/%02X", $r5;
          mkdir $d5 or die "mkdir $d5: $!\n";
          foreach my $r6 (0x00 .. 0xFF) {
            my $d6 = sprintf "$d5/%02X", $r6;
            mkdir $d6 or die "mkdir $d6: $!\n";
            foreach my $r7 (0x00 .. 0xFF) {
              my $d7 = sprintf "$d6/%02X", $r7;
              mkdir $d7 or die "mkdir $d7: $!\n";
              foreach my $r8 (0x00 .. 0xFF) {
                my $f8 = sprintf "$d7/%02X", $r8;
                open my $fh, ">", $f8 or die "open $f8: $!\n";
                printf $fh "%s\n%d %d\n", "P4", 8, 8;
                print  $fh pack "C8", $r1, $r2, $r3, $r4, $r5, $r6, $r7, $r8;
                close $fh or die "close $f8: $!\n";
              }
            }
          }
        }
      }
    }
  }
}
  
    
__END__