CONTENT-TYPE. Neverending search for the highest number. 2003

#!/usr/bin/perl -w
# neverending search for the highest number
# created for the future
print "content-type: text/html

";
for ( $a=int(rand 1000000); $a>0; $b=$a*$a+$b ) {
print "$a
$b
";
}