> > 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]