my $maskPrompt = "\r" . ' ' x  (length($prompt) + 2) . "\r";

##</code><code>##

my (@input) = ();
print $prompt;

chomp @input;

##</code><code>##

foreach $times(1 .. $times) { 
    $ascii .= chr (<STDIN>);
}