"meow.pl":

#!/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 ( Read more... )