use Mail::Send;

...time passes, children are born...

dbmopen(%CONTACT, "/httpd/userDBASE/contact", 0775)
        or die "Couldn't open DBASE: $!";

for $member (keys %CONTACT) {
        $CONTACT{$member} =~ /^\b(\S+)\b\s/;

        $msg = new Mail::Send(
                Subject => $subject,
                To      => $1);

        open MSGBODY, "$file"
                or die "Couldn't open $file: $!";

        $fh = $msg->open;

        while(<MSGBODY>) {
                print $fh "$_";
        }
        $fh->close;

        close(MSGBODY);
}