12.16.2005

queryString.cgi


#!/usr/bin/perl -w

=head1 NAME

queryString.cgi - test script for using just the query string.
By using this method instead of the arg=param method,
it is easier to hide what we are doing.

=cut

use strict;
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);

my $query = new CGI;
my $article;

$article = $ENV{QUERY_STRING};

print $query->header;
print $article;

No comments: