(my $PPTTitle, my $PPTProperties, my %PPTContent) = readPowerPoint::readActivePPT();
   if ( (defined $PPTTitle) and (defined $PPTProperties) and (defined %PPTContent) )
   {
      foreach my $prop (in $PPTProperties) # #prints out every single property
      {
         print "\n".$prop->name.":".$prop->Value;
      }
      my $text="";
      foreach my $slide (keys %PPTContent)
      {
         $text.= "\n$slide : ";
         foreach my $shape (keys %{$PPTContent{$slide}})
         {
            $text.="\n      $shape content = $PPTContent{$slide}{$shape}";
         }
      }      
   }
   else
   {
      print ("PowerPoint is open but there doesn't seem to be an active PPT presentation open.");
   }