Split input on whitespace

[Bruce Ambraal]

Why does my code not write  the splitted words to STDOUT? 

#!/usr/bin/perl -w
open (OUTPUT, ">ex92.out")||die;
my %freq;
while (my $line  = <STDIN>) {
    foreach my $w ( split( /\s+/, $line ) ){
        if( exists $freq{$w} ){ 
            $freq{$w}++; 
        }else{
            $freq{$w} = 1;
        }
    }
print "\n";
exit if $line eq "q\n";
}
foreach my $k ( keys( %freq ) ){
    print OUTPUT  "$k $freq{$k}\n";
} 

close (OUTPUT);


--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]