Select Code to Download

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

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

my $foo = $bar || 123;