I got a server here at a company. I can run the following codes in any other server, but not in this particular one.
Anyone know how to configure the server to let it work?
500 Internal Server Error
If I marked out the param lines, it works fine.
#!/usr/bin/perl -w
use CGI qw/:standard/;
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
use strict;
print header,
start_html('A Simple Example'),
start_form,
p('Your name?'),
textfield('name'),
p,
submit,
end_form,
hr;
if (param()) {
print "Your name is", param('name'), hr;
}
print end_html;
Anyone know how to configure the server to let it work?
500 Internal Server Error
If I marked out the param lines, it works fine.
Code:
#!/usr/bin/perl -w
use CGI qw/:standard/;
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
use strict;
print header,
start_html('A Simple Example'),
start_form,
p('Your name?'),
textfield('name'),
p,
submit,
end_form,
hr;
if (param()) {
print "Your name is", param('name'), hr;
}
print end_html;