#/usr/bin/perl

use CGI qw(:standard);
use strict;

my $q=new CGI;

# Check values from the query string
unless ($q->param('user') eq 'foolish' && $q->param('id') eq '2') {
     print $q->header, $q->start_html(-title=>'Page not found');
     print h2("This page was not found"), $q->end_html;

     exit;
    }
    
 # Real page code follows