1sub wc {
2  my $words;
3  $i = $VI::StartLine;
4  while ($i <= $VI::StopLine) {
5    $_ = $curscr->GetLine($i++);
6    $words+=split;
7  }
8  $curscr->Msg("$words words");
9}
10
111;
12