$SENDMAIL_CMD = '|/usr/lib/sendmail -t -oi';
[download]

sub sendmail{
  my(%mail)= @_;

    open(MF, $SENDMAIL_CMD)  || print "Sendmail Error! ($!)\n";;

print MF<<__MAIL_EOF__;
From: $mail{from}
To:   $mail{to}
Bcc:  $mail{bcc}
Subject: $mail{subject}

$mail{body}

__MAIL_EOF__
}
[download]

Hi!

Try escaping the comma separating your Bcc: addresses -- it may be interfering with the construction of the %mail hash..

Will it work using


bcc  => 'myaddress@xyz.com\, address1@xyz.com'
[download]

I'd guess you're being bitten by an inadvertent newline in your inputs. Have you considered using a module? I've had great luck with MIME::Lite over the years.