#!/bin/perl

print "<html>\n";
print "<body>\n";
print "<p>Huge param test:</p>\n";
print "<applet name='test' code='paramTest' width='420' height='220'>\n";
for ($i = 1; $i < 10000; $i++) {
  print "<param name='a$i' value='$i' valuetype='data'>\n";
}
print "</applet>\n";
print "</body>\n";
print "</html>\n";

