use strict;
use warnings;
use Mail::Sendmail;

my $from = '"Company Surveys" <surveys@surveys.com>';
my $subject = 'Your Survey';

open LIST, "<mailinglist"
  or die "Cannot open mailing list: $!";

open MESSAGE, "<mailinglist-message"
  or die "Cannot open mailinglist message: $!";

my @message = <MESSAGE>;

my %mails = (
     From    => "$from",
     Subject => "$subject",
     Message => join "", @message,
);

while (<LIST>) {
       sendmail('To' => $_, %mails) or warn $Mail::Sendmail::error;
       print "Message has been sent to $_";
};

close LIST;
close MESSAGE;
print "All e-mails sent successfully.\n\n";