use strict;
use warnings;
use IO::File;

my @email_to;
my $config_file_name = "emails.txt";
my $config_file = new IO::File;

$config_file->open("< $config_file_name") or die("Could not open configuration file $config_file_name\n");
while (<$config_file>) {
   chomp;
   push @mail_to, $_;
}