#!/usr/bin/perl -w

use strict;

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