perl -Mcharnames=all -le 'printf "%5d -> \\x{%04x} -> %s\n", $_, $_, charnames::viacode($_) for 4,127'
    4 -> \x{0004} -> END OF TRANSMISSION
  127 -> \x{007f} -> DELETE