You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
23 lines
250 B
23 lines
250 B
14 years ago
|
#!/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__
|