#!/usr/bin/env perl

use strict;
use warnings;
use CGI;


sub main {
    my $query = CGI->new();
    my $search = $query->param('q');

    print $query->header();

    print "You searched for: ", $query->escapeHTML($search);
}


main();

1;

__END__