#!/usr/bin/perl
# prints ASCII table

for ($i=32; $i<128; $i++) {
  if ($i<100) {print " "}; print $i," ",chr($i),"     ";
  if (($i-31)%6 ==0)  { print("\n"); }
}

for ($i=161; $i<256; $i++) {
  print $i," ",chr($i),"     ";
  if (($i-160)%6 ==0)  { print("\n"); }
}