#!/usr/bin/perl
$| = 1;
print "Content-type: text/html\n\n";
print "Memory/Resource Test<BR>\n";
print "Number is the amount of memory used<BR>\n";
print "If you don't see 'Completed Test!' at the bottom, the test failed<P><HR>\n";
for ($i = 10000; $i <= 8000000; $i += 100000) {
        $x = " " x $i;
        print "-";
        print "| $i ; Time (secs): ", (time - $^T), "<BR>\n" if $i % 1000000 == 0;
}
print "Completed Test!\n";
exit(0);