Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!/usr/bin/perl
- my @cores = ("aaa", "000");
- print "Content-type: text/html\n\n";
- for my $x(0..20) {
- print '<div style="float: left; margin: 1px; padding: 0px; display: table;">';
- for my $y(0..20) {
- print '<div style="height: 15px; margin: 1px; padding: 0px; width: 15px; display: block; background-color: #', @cores[int(rand(2))], ';"></div>';
- }
- print '</div>';
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement