#!/usr/bin/perl -X
# Random picture generator v 1.0
#
# (c) 2010 Geurtsen Technologies
#
use String::Random;
use CGI;
$pic = new String::Random;
$getal1 = $pic->randpattern("nn");
$getal2 = $pic->randpattern("nn");
$getal3 = $pic->randpattern("nn");
$getal4 = $pic->randpattern("nn");
if ($getal2 == $getal1) { $getal2 = $pic->randpattern("nn"); };
if ($getal3 == $getal1) { $getal3 = $pic->randpattern("nn"); };
if ($getal4 == $getal1) { $getal4 = $pic->randpattern("nn"); };
$getal1 = "0".$getal1;
$getal2 = "0".$getal2;
$getal3 = "0".$getal3;
$getal4 = "0".$getal4;
my $cgi = new CGI;
print $cgi->header();
print qq (
ClubX-clusive: fotoboek
);
