Send emails to multiple people without them seeing the others' addresses and without using Bcc

Bilbo

#!/usr/bin/perl

use 5.18.0;
use warnings;
use strict;
use autodie qw(:all);
use Perl6::Slurp;

my $bodyfile    = shift @ARGV;
my $subject     = shift @ARGV;

while (<>) {
    chomp;
    system qq(mutt -s "$subject" $_ < $bodyfile);
}