Select Code to Download

        open (DAT, "@ARGV");

        open mt $DAT, '<', $ARGV[ 0 ] or die "Cannot open '$ARGV[0]' $
+!";

        while ($line = <DAT>){
                do (@word = split (/\W/, $line));
...
                }else {
                        $charCount{$char}=1;
                }

        my %charCount;
        while ( my $line = <$DAT> ) {
...
        foreach my $char ( keys %charCount ) {
                print "$char => $charCount{$char}\n";
        }

        close(DAT, "@ARGV");

        close $DAT;