Select Code to Download

 import java.io.*;
 import java.nio.*;
...
    System.out.println(map);
  }
 }

 #!/usr/bin/perl -w

...

 $frequency{$_}++ for (split /\W/, <>);
 print "$_: $frequency{$_}\n" for (keys %frequency);