use Test::More;  ## NB *not* no_plan
  open(FOO,"<somefile.txt") or die "Can't open test file: $!"
  my $a = 0;
  $a++ while (<FOO>);
  close(FOO);
  plan tests => 10 + $a;