bonjour a tous j'aimerias avoir de l'aide pour  trouver les erreurs donc je vous laisse mon script  joint il ne fonctionne pas je ne trouve pas pourquoi merci beaucoup a ceux qui seron comprehensif

prob : mon script est un scipt de log, il recherche le groupe pseudo mot de passe dans un fichier texte.
l'erreur que j'ai est que le script ce lance bien mais j'ai aucun message qui s'affiche sur la page pour me dire si on est authentifier ou pas

Code:

#! C:\Perl\bin\perl.exe print "content_type:text/html\n\n"; use CGI; $req = new CGI; # recupperation des valeurs des champs $login = $req->param("login"); $pass = $req->param("pass"); #print " $login, $pass \n"; open(FILE,"<../inscription/part.txt"); for ($i=0; $i <=$#tab; $i++) {    print "$i \n";    @tab = join (';' ,$pseudo,$psw);    print "$pseudo, $psw \n";    if ($pseudo || $ psw eq $login || $pass)       { print "le champ de login $login \n"; print "le champ de pass $pass \n";              }       else       {       print "le champ de login pas bon $login \n"; print " le champ de pass pas bon  $pass \n"; } } exit;