#!/usr/bin/perl -w

use strict;

use CGI qw/:standard/;

my $x = query_string() || 'undefined';
warn("x =$x");
print("Hello\n");
#print param('name')."\n";