#!/usr/bin/perl use CGI; use CGI::Carp qw(fatalsToBrowser); $query = new CGI; # the following parameters are untrusted $user = $query->param('user'); $pass = $query->param('pass'); print < Mserv web interface <p>No frame support? You should go to the <a href="margin.cgi?user=$user&pass=$pass">margin</a>.</p> EOF