Select Code to Download

#!usr/bin/perl -w 
use strict;
...
      push @all_words, $this_word;
   }
}

#to count the words:
use Data::Dumper;
...
   }
}
print Dumper \%words;