#!/usr/bin/perl

use strict;
use warnings;

print "Guess the song title:\n";

### 'Eternal Flame' (that girl band)

my @topics = (
    'this site needs more colours',
    'tabs are tabbier than spaces',
    'PHP rulez ok !!!1!!1',    
);

print "$topics[rand @topics]\n" while 1;
[download]