re encore un bug qui me pourrit la vie.....qu'ai-je donc fait de mal dans ce script?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
#!/usr/bin/perl
 
use CGI;
 
$page = new CGI;
@tabfic= ();
opendir(rep,".");
while($lg = readdir(rep)){
if($lg=~ m/\.txt$/){
chomp($lg);
unshift(@tabfic,$lg);
 }
}
 
closedir(rep);
 
print $page->header(),
       $page->start_html(),
      $page->h1("liste des fichiers txt"),
     $page->startform(-name=>"f1",
                       -method=>"POST",
                        -action=>"affich.cgi");
 
 print "<select name=\"s1\" multiple>";
 
for ($i=0;$i<=#tabfic;$i++) {
    print"<option value=\"$tabfic[$i]\"> $tabfic[$i] </option>";
}
print "</select>";
 
print $page->submit(),
      $page->end_form(),
      $page->end_html();
 
exit;