Select Code to Download

                while ($line = <F>) {
                    if ($. ==  $findline) {
                        ($field1, $field2, $field3, $field4) = split '
+,', $line;