23 lines
250 B
Plaintext
23 lines
250 B
Plaintext
|
#!/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__
|