#!/usr/bin/perl

use warnings;
use strict;

my($count, $pattern);

my $input = shift;

$pattern = \b\w+\b;

open(FILE,"$input") or
	die "Error: $!\n";
	
$count = 0;

while(<FILE>)
{
	if(/$pattern/)
	{
		$count++;
	}
}


print "Word Count = ", $count, "\n\n";