Help for this page

Select Code to Download

Select or download this

while (my $line = readline $in_fh[$i])
{
    print $line;
}