#!/usr/bin/perl
use strict;
use Speech::eSpeak ':all';
package course; {
sub new{
my $filename = 'capacitation.txt';
my $speaker = Speech::eSpeak::new({datadir=>'/usr/share/mbrola'});
open(my $fh, $filename)
  or die "Could not open file '$filename' $!";
while (my $row = <$fh>) {
  chomp $row;
  print "$row\n";
  $speaker->speak("$row");
}
}
}
my $cap = course->new();