#!/usr/mesh/bin/perl print "Content-Type: text/html\n\n"; print "The Stars\n"; print "\n"; print "\"?????\"
\n";
for($i=0;$i<20;$i++)
{
    srand(time()+$i);
    for($j=0;$j<70;$j++)
    {
        if(($j+$i)%(rand()*200+1)<1)
        {
            print "š";
            $j++;
        }
        else
        {
            print " ";
        }
    }
    print "\n";
}
print "
"; sub RandCol { srand(@_[0]); $r=rand()*256; $g=rand()*256; $b=rand()*256; $s=sprintf("#%X%X%X",$r,$g,$b); return $s; }