`forge`

        #!/usr/bin/perl

        $MAIL = '/var/qmail/bin/qmail-inject';
        use Getopt::Std;
        getopts('f:m:s:b:B') or usage();
        $opt_f or usage();

        my $m_file = $opt_m;
        my $message;
        my $subj = $opt_s;
        @ARGV or usage();
        my $to = join ', ', @ARGV;
        my $bcc = $opt_b || $ENV{FORGE_BCC} || $ENV{USER};
        my $BCC = $opt_B ? "" : "Bcc: $bcc\n";

The heart of the thing is a call to qmail-inject

Note that $BCC is set to an entire Bcc: line, or the empty string

Typically:

        Bcc: mjd@plover.com