Help for this page

Select Code to Download

Select or download this

my %params; # declare a hash to hold the params later
if ($ENV{REQUEST_METHOD} eq 'GET' && $ENV{QUERY_STRING} ne '') {
...
   $params{$name} = $value; # hash assignment
 }
}

Select or download this

#!/usr/bin/perl
use strict;
...

# send redirection
print $cgi->redirect("$baseurl/$help_file");