Error Empty Query

#!/tools/perl/current/bin/perl

use strict;
use CGI;

my $query = new CGI;

my $input  = $query->param('input');
my $smd = $query->param('smd');

if ($input eq "") {
print "Content-type: text/html\n\n<html><head>Error</head><h1>Error Empty Query</h1></html>\n";
exit;
}

my $GOOGLEURL = "http://www.google.com/search?hl=en&lr=&ie=ISO-8859-1&q=" . $input;

$GOOGLEURL .= " site%3Awww.geneontology.org";

print "location: $GOOGLEURL\n";
print "Content-type: text/html\n\n";

exit;