Select Code to Download

============
something.lib
...
for my $param (keys %params) {
    print "$param: $params{$param}<br>"
}

sub main
{
        my $cgi = CGI->new();
        my %params = $cgi->Vars();