Okay, how do you get Perl working on here? I've uploaded about the simplest Perl script I can create, threw it into my cgi-bin directory, and changed the permissions to 755.
I still get 500 Internal Server Error.
My code is:
#!/usr/bin/perl
use CGI;
use CGI::Carp qw(fatalsToBrowser);
# create a new CGI object to handle this request
$q = new CGI;
# display standard HTML header stuff
print $q->header,
$q->start_html('Echo CGI'),
$q->h1('Echo CGI');
# get a list of all parameters (fields) passed to us
@names = $q->param;
# now display a DL with params and values
print "<HR>";
print "<DL>";
# loop over all the param names (sorted)
# displaying each name and associated value
foreach $n (sort @names) {
print "<DT><B>$n</B>";
print "<DD>", $q->param("$n");
}
print "</DL>";
print "<HR>";
# the HTML trailers
print $q->end_html;
# end
Which should be able to be run at:
http://pzelnip.x10hosting.com/cgi-bin/echo.cgi?test=20
I still get 500 Internal Server Error.
My code is:
#!/usr/bin/perl
use CGI;
use CGI::Carp qw(fatalsToBrowser);
# create a new CGI object to handle this request
$q = new CGI;
# display standard HTML header stuff
print $q->header,
$q->start_html('Echo CGI'),
$q->h1('Echo CGI');
# get a list of all parameters (fields) passed to us
@names = $q->param;
# now display a DL with params and values
print "<HR>";
print "<DL>";
# loop over all the param names (sorted)
# displaying each name and associated value
foreach $n (sort @names) {
print "<DT><B>$n</B>";
print "<DD>", $q->param("$n");
}
print "</DL>";
print "<HR>";
# the HTML trailers
print $q->end_html;
# end
Which should be able to be run at:
http://pzelnip.x10hosting.com/cgi-bin/echo.cgi?test=20
Last edited: