my $to = '';
my $from = 'xxx@xxx.com';
my $subject = $subject;
my $message = "

$msg
";

open(MAIL, "|/usr/sbin/sendmail -t");
 
print MAIL "To: $to\n";
print MAIL "Bcc: $emails\n";
print MAIL "From: $from\n";
print MAIL "Subject: $subject\n\n";

print MAIL $message;

close(MAIL);