Select Code to Download

while (my $lines = <$fh>) {...

print $arg1, $arg2, ...

print($arg1, $arg2, ...)

 print substr($lines, $schemePOS, 20), substr($lines, $abiPOS, 3);