#!/usr/bin/perl
# Runs from Mac OS X

my $n = 1;
my @voices = qw(bruce alex fred kathy vicki victoria);

$| = 1;


do {
    $voice = $voices[int(rand($#voices+1))];
    $out = "meow";
    $out =~ s/e/ee/ if (rand() < 0.2);
    $out .= '!' if (rand() < 0.4);
    $out = 'Truck' if (rand() < 0.05) && ($n > 3);
    system('/usr/bin/say', '-v', $voice, $out);
    $n++;
} while($n < 20);

system('/usr/bin/say', '-v', $voice, 'Truck');