#!/usr/athena/bin/perl
{
$pond[1]='Uh, I think so, Brain, but where will we find a duck and a hose at this hour?';
$pond[2]='I think so, but where will we find an open tattoo parlor at this time of night?';
$pond[3]='Wuh, I think so, Brain, but if we didn\'t have ears, we\'d look like weasels.';
$pond[4]='Uh... yeah, Brain, but where are we going to find rubber pants our size?';
$pond[5]='Uh, I think so, Brain, but balancing a family and a career ...  oooh, it\'s all too much for me.';
$pond[6]='Wuh, I think so, Brain, but isn\'t Regis Philbin already married?';
$pond[7]='Uh, I think so, Brain, but burlap chafes me so.';
$pond[8]='Sure, Brain, but how are we going to find chaps our size? ';
$pond[9]='Uh, I think so, Brain, but we\'ll never get a monkey to use dental floss.';
$pond[10]='Uh, I think so, Brain, but this time, you wear the tutu.';
$pond[11]='I think so, Brain, but culottes have a tendency to ride up so.';
$pond[12]='I think so, Brain, but if they called them sad meals, kids wouldn\'t buy them.';
$pond[13]='I think so, Brain, but me and Pippi Longstocking... I mean, what would the children look like?';
$pond[14]='I think so, Brain, but this time, you put the trousers on the chimp.';
$pond[15]='Well, I think so, Brain, but I can\'t memorize a whole opera in Yiddish.';

$ENV{'KRBTKFILE'} = "/tmp/pinkbrain";
srand(time);
while (1 > 0) {
 system "/usr/athena/bin/ksrvtgt rcmd blarney";
 open($z,"|/bin/athena/zwrite -i pondering -n -q -s '@bold(Animaniacs Server)'");
 $p=int(rand(14)+1);
# print $z "test\n";
 print $z "Pinky, are you pondering what I'm pondering?\n\n",$pond[$p],"\n";
 close($z);
 system "/bin/athena/kdestroy";
 $p="";
 sleep(int(rand(3600))+1800);
 }
}