Internet

#!/usr/bin/perl print "Content-Type: text/html\n"; print "Cache-Control: no-cache\n\n"; print < Internet EOF my $gen; if ($ENV{"QUERY_STRING"} =~ /gen=(.+)[&]?/) { $gen = $1; } $gen = 0 if (!$gen); my $solid = ( int(rand(5)) == 0 ); if ( ($solid && $gen >= 3) || ($gen > 6) ) { # be solid color my $r = int(rand(240))+16; my $g = int(rand(240))+16; my $b = int(rand(240))+16; $col = dechex($r) . dechex($g) . dechex($b); print "\n"; print "\n"; print "\n"; print "

\n\n"; } else { # Split into two more frames. if ($gen%2) { my $size = int(rand(61))+20; print "\n"; } else { my $size = int(rand(31))+35; print "\n"; } my $opt = "frameborder=0 border=0 resize scrolling=off framespacing=0 cellpadding=0"; $gen++; print "\n"; print "\n"; print "You need frames for this to work. :(\n"; print "\n"; } print "\n"; sub dechex { ($val) = @_; return sprintf "%02x", $val; }