open(FILE, "filename");
  @lines = <FILE>;
close(FILE);

$num = @lines;