#!/usr/local/bin/perl
$wordcount = 0;
print("Type a phrase\n");
$line = <STDIN>;
chop ($line);
print("$line\n");
while ($line ne "") {
	@array = split(/ /, $line);
	$wordcount += @array;
	print("Type a phrase\n");
	$line = <STDIN>;
	chop ($line);
	print("$line\n");
}
print ("Total number of words: $wordcount\n");

print ('press ENTER to EXIT');
$in = <STDIN>;