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