Running and debugging a perl script

JeremyJGreen · #1 07-06-2008, 10:20 AM

Hi, could someone please help me out with a perl script.

My final intent is to run an automated script that cleans up MySQL, but I am having difficulties even executing a simple script.

My idea was to make a perl script that simply writes "Hello world".

The script is at: http://www.koolinavacationvillas.com/test.pl

Permissions are set to 755 and the script is in the public_html directory.

I was expecting to see some text back when I click on the above script, but I get an error 500.

I suspect this is to do with the way that I am trying to run the script, but really am not sure. Any help would be appreciated!

Code:

!/usr/bin/perl
 
BEGIN {
    my $homedir = ( getpwuid($>) )[7];
    my @user_include;
    foreach my $path (@INC) {
        if ( -d $homedir . '/perl' . $path ) {
            push @user_include, $homedir . '/perl' . $path;
        }
    }
    unshift @INC, @user_include;
}
 
print "<HTML><BODY>Hello word</BODY></HTML>";

Regards,
Jeremy Green
http://koolinavacationvillas.com

JeremyJGreen · #2 07-06-2008, 02:22 PM

I think I have answered my own question, but this may be useful for others. The first line returned must be the content type, or the web server will thrown an internal error. Adding this above the BEGIN fixes the problem:

Code:

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

Jeremy Green
http://koolinavacationvillas.com

Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)