
$total_words = 0;
$total_lines = 0;
while( $line = <STDIN> )
	{
		$total_lines++;
		
		@words = split( ' ', $line );
		$current = @words;
		$total_words += $current;
	}
print "Lines: $total_lines, Words: $total_words\n";

