for (my $i=33; $i<=126; $i++) {
   printf("\\%o = %s\n", $i, chr($i));
}