Perl Output Code - Internal 500 Debug

[DJRyan]

I have just setup a script but it's not working.

I have tested other .pl files and they work - what I am looking for is a few lines of code I can inject int the .pl that will output some errors to the browser so I can debug the problem.

Thanks in advance!

[lexipixel]

Since Perl is interpreted at runtime, a 500 "internal server error" means the code would not run...

If you have perl on a local machine you can run the code from a command line and read the errors... sometimes as simple as a missing curly bracket or semi-colon.

Otherwise, see if your host has a "Check Perl Scripts" utility you can use to debug online.

[kaled]

Download Active Perl and debug it on your PC/Mac.

Kaled.

[tschild]

What you can insert (near the top of the script, with the other use statements) is:

use CGI::Carp qw(fatalsToBrowser);

[Lord Majestic]

Just some common reasons (may not be applicable in this case however) why script that appears to run fine in Windows then dies on Unix.

1) make sure you upload script using ASCII transfer mode - if you use binary then Unix system will choke and die on Windows style of end of lines.

2) make sure you have turned buffering off, use this: $¦ = 1;

3) of course you need to output at least some headers! Here is bare minimum:

print "Content-type: text/html\n\r\n\r";

[tombola]

If you are serious about Perl programming, you must follow the advice of kaled and install Perl Active State on your local system. It will save you a lot of time to debug your scripts ;-)