#!/usr/bin/perl -w

use strict;
use warnings;

#
#  Try chars from space ' ' (ascii 32) up until
#  tilde '~' (ascii 126).
#
foreach (32 .. 126) {
    my $c = chr($_);
    try_char($c);
}

sub try_char {
    my ($new_char) = @_;
    print "=== Character '$new_char' ===\n";
    my @chars = qw( . o O );
    if ($new_char) {
        push @chars, $new_char;
    }
    for (my $i = 0; $i < 800; $i++) {
        my $r = $chars[int(rand @chars)];
        print $r;
    }
    print "\n";
    <STDIN>;      # Wait for user to hit [RETURN]
}