#!/usr/bin/perl
use CGI qw(:standard);
print "Content-type:text/html\n\n";
my $amount = ( 1024 ** 2 ) * param('amount');
print "Super-big page.Text, $amount byte of it!
";
for( my $i = 0; $i < $amount; $i++ ) {
print chr( rand(26) + 97 );
}
print "
";