#!/usr/bin/perl

use strict;
use warnings;

$| = 1;

#
# Main
#
my $SaveSTDIN;
print "\033[21t;";
my $Response = <STDIN>;
open(STDIN, "<&$SaveSTDIN");
print("\$Response\[$Response\]\n");
my @Characters = split(//, $Response);
foreach my $Character (@Characters)
   {
   print("\[$Character\]\[" . (ord($Character)) . "\]\n");
   }