HTTP 500 - Internal server error

[Pinel <marc.pinel@wanadoo.fr>]

Hello,
About the HTTP 500 - Internal server error
Have you tried these different first lines if  the #!/usr/local/bin/perl is 
wrong
#!/usr/bin/perl
#!/usr/lib/perl
#!/usr/lib/perl
#!/bin/perl
#!/usr/sbin/perl
#!/usr/local/lib/perl
Are you saving files in pure ASCII text format  ? For exemple use Wordpad but 
do not use Notepad
Are you uploading your script to your cgi directory in ascii mode ?
Here is a Perl script to know and check your server about the paths :
- With your FTP, install the script in your cgi-bin directory (mode ascii).
- Give it CHMOD 755 rights .
- With your browser, go to your address : 
http://www.youraddress.com/cgi-bin/infos.cgi
- Print the consequent page.
Good luck
Marc Pinel (France).
#!/usr/bin/perl
      print "Content-type:text/html\n\n";
      print "<html><head><title>INFOS CGI</title>\n";
        print "</head><body bgcolor=FFFFFF><CENTER>\n";
        print "<H3>ENVIRONNEMENT CGI</H3><P>\n";
        print "<P>Imprimez ces informations. Elles vous seront utiles<BR>pour 
installer\n";
        print "et configurer les scripts PERL sur votre 
serveur</P></CENTER><HR>\n";
       foreach $key (keys(%ENV)) {
       print "<B>$key</B> = $ENV{$key}<BR>\n";
       }
        print "<HR><H3>EMPLACEMENT PERL</H3>\n";
        foreach $buf ('/usr/lib/perl','/usr/bin/perl',
                '/bin/perl','/usr/sbin/perl',
                  '/usr/local/bin/perl','/usr/local/lib/perl')  {
          if ((-e "$buf") && (-x "$buf")) {
            print "$buf<br>\n";
          } else {
            print "\n";
          }
        }
        print "<HR><H3>EMPLACEMENT DATE</H3>\n";
        foreach $buf ('/usr/lib/date','/usr/bin/date',
                '/bin/date','/usr/sbin/date',
                  '/usr/local/bin/date','/usr/local/lib/date')  {
          if ((-e "$buf") && (-x "$buf")) {
            print "$buf<br>\n";
          } else {
            print "\n";
          }
        }
        print "<HR><H3>EMPLACEMENT SENDMAIL</H3>\n";
        foreach $buf ('/usr/lib/sendmail','/usr/bin/sendmail',
                      '/bin/sendmail','/usr/sbin/sendmail',
                '/usr/local/bin/sendmail','/usr/local/lib/sendmail')  {
          if ((-e "$buf") && (-x "$buf")) {
            print "$buf<br>\n";
          } else {
            print "\n";
          }
        }
        print "<CENTER><BR><H3><A 
HREF='javascript:window.print()'>IMPRIMER</A></H3></CENTER></body></html>";
exit;