> 
> while (<ADDRESSLIST>) {
>       my @rows= split (/;/);
>       for my $i (0 ..$#rows) 
>            {
>                print $q->a({href=> "/cgi-bin/details.cgi?nr=$i"},
>                escapeHTML($rows[0]))."<br>\n"; 
>            } 
>        close ADDRESSLIST;

You have closed the file handle here, but the while loop has not ended.

>                                                                             
>            }

Rgds,
Connie


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Reply via email to