DB<2>
main::(code.pl:13):         if (@lines == 1) {  # A heading
  DB<2> print scalar @lines
main::((eval 27)[/usr/local/lib/perl5/5.6.0/perl5db.pl:1510]:2):
2:      print scalar @lines;
49