#!/usr/bin/perl # gen.cgi print "Content-type: text/html\n\n"; print < [sinoth's random generator] \n # - wall
. - dirt
. - grass
* - tree

HEAD for ( $i = 0; $i < 48; $i++ ) { for ( $j = 0; $j < 80; $j++ ) { $r = int(rand(20)); if ( $r < 2 ) { print "#"; } elsif ( $r > 1 && $r < 5) { print "*"; } elsif ( $r >= 5 ) { $r = int(rand(10)); if ( $r > 0 ) { print "."; } elsif ( $r == 0 ) { print "."; } } } print "
\n"; } print < END