bash to perl for cgi

[Philippe Rousselot]

Hi,

I know nothing about perl and I have a problem with a cgi script for a 
website called geneweb (genealogy stuff).

I moved from one web site to another and now the site does not work and 
give me a 500 error message.

cgi-bin and a perl script work fine. Here is the script I used to test :

~~~~~~

    #!/usr/bin/perl
    # test.cgi by Bill Weinman [http://bw.org/]
    # Copyright 1995-2008 The BearHeart Group, LLC
    # Free Software: Use and distribution under the same terms as perl.

    use strict;
    use warnings;
    use CGI;

    print foreach (
    "Content-Type: text/plain\n\n",
    "BW Test version 5.0\n",
    "Copyright 1995-2008 The BearHeart Group, LLC\n\n",
    "Versions:\n=================\n",
    "perl: $]\n",
    "CGI: $CGI::VERSION\n"
    );

    my $q = CGI::Vars();
    print "\nCGI Values:\n=================\n";
    foreach my $k ( sort keys %$q ) {
    print "$k [$q->{$k}]\n";
    }

    print "\nEnvironment Variables:\n=================\n";
    foreach my $k ( sort keys %ENV ) {
    print "$k [$ENV{$k}]\n";
    }

~~~~~~

the script I need to call the program is the following

~~~~~~
   #!/bin/sh
    DIR=/homez.xxx/xxxx/www/geneweb607/gw
    cd $DIR
    $DIR/gwd -cgi 2>/dev/null

~~~~~~

I guessed, but I may be wrong that I cannot use a sh script (I checked 
for files and folders rights)

Could someone give me a translation in perl of this script so I can try 
out this idea

For info the host provider is OVH and the website is stored on a 'Perso 
2014'


In advance thank you very much

Philippe

--
Philippe Rousselot

--
Philippe Rousselot