1 rizwank 1.1 #! /usr/bin/perl -w
 2             use strict;
 3             
 4             my @colours;
 5             
 6             while ( <> )
 7             {
 8                 chomp;
 9                 push @colours, $_;
10             }
11             
12             print qq{<table width="300px">\n};
13             
14             foreach my $colour ( @colours )
15             {
16                 print "<tr>\n";
17                 print qq{<td style="background:#$colour" >};
18                     print $colour;    
19                 print "</td>\n";
20                 print "</tr>\n";
21             }
22 rizwank 1.1 
23             print "</table>\n";