Select Code to Download

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

...
  foreach my $token ( sort keys %frequency ) {
      print "$token: $frequency{$token}\n";
  }