Help for this page
my $num_lines = $header_lines + $lines_per_rec * $num_recs;
open my $fh, '<', $qfn or die $!;
my $foo = $bar || 123;