#!/usr/bin/perl

use Getopt::Std;

getopts("q");

@ARGV != 1 && die "usage: $0 [-q] ascii-number\n";

$chr = chr($ARGV[0]);

if ($opt_q) { print "'"; print "\\" if $chr eq "'"; }
print $chr;
if ($opt_q) { print "'"; }

print "\n";