[perl][linux][newbee] 500 Internal Server Error

[Verwijderd]

Hallo,
'k heb net een machine met linux geinstalleerd en wil nu een perl scriptje draaien dat ik ergens vandaan geript heb gewoon om te testen. maar ik krijg een 500 Internal Server Error ik heb het bestandje de juiste rechten gegeven maar waarschijnlijk moet ik ergens nog wat instellen.
De Code:

code:

#!/usr/bin/perl ­w
use strict;
$|++;

use Net::IRC;
use Chatbot::Eliza;

my $IRC_debug = 0;
my $TRACE = 1;

(my $irc = Net::IRC­>new)­>debug($IRC_debug);
my $conn = $irc­>newconn(Nick => 'bot je',Server => 'irc.sci.kun.nl',);
 for ([motd => sub {   
        print"motd:".($_[1]­>args)[1],"\n" if $TRACE;   
       }],   
     [endofmotd => sub {   
        my $conn = shift;   
         print "we are IN!\n" if $TRACE;   
         $conn­>join("#doctors_office");   
      }],   
 [nicknameinuse => sub {   
         my $conn = shift;   
         my $nick = $conn­>nick;   
         $nick =~ /^[a­zA­Z]+[0­9]*$/ or die "can't   
                    fix collided nick";   
         $nick++;   
         print"nickcollision,fixingto$nick\n"if $TRACE;   
         $conn­>nick($nick);   
 }],   
 [msg => sub {   
             my ($conn, $event) = @_;   
             my ($msg) = $event­>args;   
             heard($conn, $event, $event­> nick, $msg);   
     }],   
     [public => sub {   
       my ($conn, $event) = @_;   
       my ($msg) = $event­>args;   
       heard($conn, $event, $event­>to, $msg);   
     }],   
   ){   
  $conn­>add_global_handler(@$_);   
 }   
 $irc­>start;   

 BEGIN {   
   my %docs;   
   my %talking_to;   

   sub heard {   
      my ($conn,$event,$from,$said) = @_;   
      print "heard $from say $said\n" if $TRACE;   
      if ($said =~ /go away/) {   
        $conn­>quit("o/~ and all the science, I don't
                            understand... it's just my job 
                            five days a week o/~");   
         return;   
     }   
     my $userhost = $event­>userhost;   
     my $doc = $docs{$userhost} ||= do {   
       my $bot = Chatbot::Eliza­>new();   
       $bot­>{memory} = [];     # bug workaround   
       $bot;   
     };   
     my @response = $doc­>transform ($said);   
     my $nick = $event­>nick;   
     if (($talking_to{$from} || "") ne $nick) {   
       $talking_to{$from} = $nick;   
       $response[0] = "$nick, $response[0]";   
 }   
 for (@response) {   
    say($conn, $from, $_);   
   }   
  }   
 }   

 sub say {   
   my ($conn, $to, $what) = @_;   
   print "telling $to $what\n" if $TRACE;   
  if ($to =~ /^\#/) {     #a channel   
     $conn­>privmsg($to, $what);   
   } else {      #a person   
     $conn­>notice($to, $what);   
   }   
 }

Of moet ik dit vragen bij: Non-Windows Operating Systems

[Glimi]

Als het goed is staat er een foutmelding in je error.log van apache. Kun je dat even posten?

[m-m]

dit ziet er niet echt uit als een CGI script maar een gewone perl-file...
doe es gewoon commandline perl <script>

[whoami]

Zet eens even de friendly error messages van je browser af, dan krijg je een melding waar je al heel wat meer mee bent om de fout op te sporen.

Verder is het ook niet zo dat er hier in /14 support gegeven wordt op scriptjes die je geript hebt of op andere manieren verkregen hebt. P&W is een forum dat zich richt op discussies rond programmeren en programmeerproblemen die zich voordoen bij dingen die je zelf programmeert.
Daarnaast is dit ook een beetje een ik-post-m'n-code-en-jullie lossen-het-wel-op verhaal.

Lees ook even de P&W FAQ en Quickstart, daar staat een en ander daaromtrent vermeld.

En ja, misschien hoort dit wel eerder in een ander subfora thuis, ik denk niet dat er fouten in het script zullen zitten...