<%perl> use CGI qw/:standard/; use lib "/home/httpd/html/mason/alfabraga/Mapit"; use Mapit; my $map = mapit_load("/home/httpd/html/mason/alfabraga/Mapit/braga"); $map -> {script} = "/alfa-braga/Mapit/t"; my @ps = param(); my %par; for(@ps) { $par{$_}=param($_); } <% $map->edit($map->{script},\%par) %>