#!/usr/bin/perl
use strict;
print "content-type: text/html\n\n";

my @messages = (
  "This is message 1",
  "This is message 2",
  "This is message 3",
  "This is message 4",
  "This is message 5",
);

# print a random message
print @messages[rand @messages] , "\n";