$mailprog = "/usr/sbin/sendmail";

my $file1 = 'message';
open my $ifh1, '<', $file1;
local $/ = undef;
my $contents = <$ifh1>;

my $file2 = 'recipients';
open my $ifh2, '<', $file2;
local $/ = undef;
my $recip = <$ifh2>;

close( $ifh2 );
close( $ifh1 );


$subject= "Weekly status snapshot for WW-3";
open(MAIL, "|$mailprog -t");
print MAIL "To: $recip \n";
#print MAIL "bcc: rahul.agarwal\@everyone.com\n";
print MAIL "From: rahul.agarwal\@everyone.com\n";
print MAIL "Subject: $subject\n\n";
print MAIL "$contents";
close(MAIL);