my @params = param();
print q(<pre>);
for (@params) {
    print "$_ :: $params[$_]\n";
}