#! /usr/local/bin/perl -w
use strict ;
my $file = $ARGV[0] ;
open TEXT, "<$file";
my %frequency = () ;
while ( my $line = <TEXT> ) {
my(@words) = split /\W/, $line ;
foreach my $word ( @words ) {
$frequency{$word} = $frequency{$word} + 1 ;
}
}
foreach my $word ( keys %frequency ) {
my $count = $frequency{$word} ;
print "$word\t\t$count\n";
}