#!/usr/bin/perl -Tw

use strict;
use CGI;

my $q = new CGI;

print $q->header;
print $q->query_string;