#!/usr/bin/perl -w

use strict;

for(my $i = 0; $i < 16; $i++)
{
   for(my $j = 32; $j < 127; $j += 16)
   {
      my $c = $i + $j;
      printf ' %3d %02x %c  ', $c, $c, $c if $c < 127;
   }
   print "\n";
}