#/usr/bin/perl

use strict;
use warnings;

print "Guess the song title:\n";

# 'Stop me if you think you've heard this one before' (The Smiths)

my %heard_before;
my @joke_topics = ('penguin', 'chicken', 'elephant', 'badger', 'ape');
JOKE:
while (1) {
	my $topic = $joke_topics[ int( rand 5 ) ];
	print "Did you hear the one about the $topic...?\n";
	if ($heard_before{ $topic }++) {
		print "...OK you better stop me, I'm repeating myself now.\n";
		last JOKE;
	}
	sleep 1;
}