Help for this page
#!/usr/bin/perl # ... } else { print "-1\n"; }
foreach my $thisLine (<$inFH>) { .. do something with $thisLine .. }
while (<$inFH>) { .. do something with $thisLine .. }