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