Select Code to Download

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

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

chomp @input;

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