Help for this page

Select Code to Download

Select or download this

while ($line = <TF>) {
    ...
    $line = <TF>;
}