sub readWordDoc
{
   my $wordContent;
   my $wordTitle;
   my $wordProperties;
   ($wordTitle, $wordProperties, $wordContent) = readWord::readActiveDoc();
if ( (defined $wordTitle) and (defined $wordProperties) and (defined $wordContent) )
   {
      my $content="";
      foreach my $palabre (in $wordContent->Words) # retrieves every single word and adds it to content
      { 
         $content.= "\n".lc($palabre->{Text}); 
      }
      foreach my $prop (in $wordProperties) # prints out every single property
      {
         print "\n".$prop->name.":".$prop->Value;         
      }
   }
}