#!/usr/bin/perl -w
use CGI qw(:standard);

my $q=CGI->new ;