Help for this page
package Voice; ... } # end-talk 1;
#!/usr/bin/perl ... $voice->talk; exit;
#!/usr/bin/perl ... print $handle "(SayText \"Testing.\")"; exit;