#!/usr/bin/perl -w use strict; my $NUM = 50; my $divHTML; foreach my $i (1..$NUM) { $divHTML .= qq|

|; $divHTML .= '

'; $divHTML .= "

\n"; } print "Content-Type: text/html\n\n"; print <<"EOF"; Double sinus madness

Bored? Me?

DHTML Doublesinus Plotter
by Jesper Christensen
8th July 2000

EOF