#!/usr/bin/perl

use CGI qw(:cgi-lib :standard);  # Use CGI modules that let people read data passed from a form
&ReadParse(%in);                 # This grabs the data passed by the form and puts it in an array
$search = $in{"search"};         # Get the user's name and assign to variable

print "content-type:text/html; charset=utf-8\n\n";
print "<p>hello world!</p>";
print "<p>you searched for $search</p>"