$msg->bcc(@$bcc_stat) if (@$bcc_stat);
$msg->subject("PGBuildfarm member $animal Branch $branch $stat_type $stage");
$msg->set('From',$from_addr);
-{ my $handle; open($handle,">>/tmp/mailobj"); print $handle scalar(localtime),Dumper($msg); close($handle); }
my $fh = $msg->open;
print $fh <<EOMAIL;
$msg->subject("PGBuildfarm member $animal Branch $branch Status $stat_type");
$msg->set('From',$from_addr);
-{ my $handle; open($handle,">>/tmp/mailobj"); print $handle scalar(localtime),Dumper($msg); close($handle); }
$fh = $msg->open;
print $fh <<EOMAIL;