1 files changed, 11 insertions, 0 deletions
diff --git a/contrib/nvi/perl_scripts/wc.pl b/contrib/nvi/perl_scripts/wc.pl
new file mode 100644
index 0000000..0a50159
--- /dev/null
+++ b/contrib/nvi/perl_scripts/wc.pl
@@ -0,0 +1,11 @@
+sub wc {
+  my $words;
+  $i = $VI::StartLine;
+  while ($i <= $VI::StopLine) {
+    $_ = $curscr->GetLine($i++);
+    $words+=split;
+  }
+  $curscr->Msg("$words words");
+}
+
+1;