Help for this page

Select Code to Download

Select or download this

while (my $line = <$inputFH> )
{
...

    last;  # Break out of while loop
}