Select Code to Download

#!/usr/bin/env perl
use warnings;
...
    close $tfh;
    return system('festival','--tts',$tfn)==0;
}