my $num_lines = $header_lines + $lines_per_rec * $num_recs;

##</code><code>##

open my $fh, '<', $qfn
    or die $!;

##</code><code>##

my $foo = $bar || 123;