#!/usr/bin/perl

use strict;
use warnings;
use CGI::Simple;

my $q = CGI::Simple->new;
print $q->header;
my $param = $q->param('q');
print qq|<h1>$param</h1>|;