#! /usr/bin/perl -w 
use strict;

# Create a frequency count of all words in all input files
my %freq_count;
while (defined(my $line = <>)) {
  while ($line =~ /(\w+)/g) {
    $freq_count{$1}++;
  }
}

# Print the frequency summary.
foreach my $word (sort keys %freq_count) {
  print "$word:\t$freq_count{$word}\n";
}