Help for this page

Select Code to Download

Select or download this

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

   ...process split line...
}