my $local_addr = 'some@addr.com';
my @addrs = qw(mzsanford@cpan.org foo@perl.com joe@cool.com);
my $mail_string = join(',',@addrs);
open(MAIL,"| /usr/lib/sendmail -t") || die "fork() : $!\n";
print MAIL "From: $local_addr\n";
print MAIL "To: $local_addr\n";
print MAIL "Bcc: $mail_string\n\n";
print MAIL "Subject: hello\n";
print MAIL "foo, bar, and the like.\n";
print MAIL "\n.\n";
close(MAIL) || die "close() : $!\n";