How to use perl in a website.

[Ross1234]

Does no-one know? Hi. I am making a perl site search on my website and have this code

#!perl -w
use strict;
use File::Find;
use CGI qwstandard);
my $query = param("query");
print header();
print start_html();
print "\n<p>For the query $query, these results were found:</p>\n<ol>\n";
undef $/;

find( sub
{
return if($_ =~ /^\./);
return unless($_ =~ /\.html/i);
stat $File::Find::name;
return if -d;
return unless -r;

open(FILE, "< $File::Find::name") or return;
my $string = <FILE>;
close (FILE);

return unless ($string =~ /\Q$query\E/i);
my $page_title = $_;
if ($string =~ /<title>(.*?)<\/title>/is)
{
$page_title = $1;
}
print "<li><a href=\"$File::Find::name\">$page_title</a></li>\n";
},
'/home/username/public_html');

print "</ol>\n";
print end_html();

End

and this for the search box

<form action="/cgi-bin/search.pl" method="post">
<input name="query" type="text" size="20" maxlength="255" />
<input name="Search" type="submit" id="Search" value="Search" />
</form>

Where do I Put the code in my website so that the script will run?
I have perl, php, mysql apache whatever all enabled

Does anyone know?

 

[Ross1234]

HELP!

 

[Ross1234]

well i made it as a file .cgi and uploaded it to the directory stated in the search box code. It says internal server error

 

[Ross1234]

This is what i get




Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request. Please contact the server administrator and inform them of the time the error occurred, and anything you might have done that may have caused the error.
More information about this error may be available in the server error log.

Additionally, a 404 Not Found error was encountered while trying to use an ErrorDocument to handle the request.

 

[Ross1234]

Thanks for your help I will contact them

 

[Ross1234]

thanks i changed that and now get an internal server error 500