#/usr/bin/perl

use strict;
use warnings;

print "Guess the song title:\n";

# 'Some girls are bigger than others' (The Smiths)
for my $girl (1..5) {
	print "Girl number $girl is size ", int( rand 20 ), "\n";
	sleep 1;
}