if ($type eq "nme")                                     #check the parameter (determines sub to be used)
    {
    $message = lmhandler::getAdd($find,$loadmap);
    print "Content-type:text/html\n\n";
    }
elsif ($type eq "addr")
    {
    $message = lmhandler::getmod($find,$loadmap);
    print "Content-type:text/html\n\n";
    }
elsif ($type eq "root")                                #create new cookie
    {
    $cookie = $query->cookie(-name=>'MY_COOKIE',
    -value=> $find,
    -expires=>'+1y',
    -path=>'/');
    print header(-cookie=>$cookie);
    }
    
print "<html>\n";
...