head	1.1;
access;
symbols;
locks
	nobody:1.1; strict;
comment	@# @;


1.1
date	2004.08.28.22.57.24;	author ArthurClemens;	state Exp;
branches;
next	;


desc
@none
@


1.1
log
@none
@
text
@#! /usr/bin/perl -w
use strict;

my @@colours;

while ( <> )
{
    chomp;
    push @@colours, $_;
}

print qq{<table width="300px">\n};

foreach my $colour ( @@colours )
{
    print "<tr>\n";
    print qq{<td style="background:#$colour" >};
        print $colour;    
    print "</td>\n";
    print "</tr>\n";
}

print "</table>\n";
@