open MSGBODY, "$file"
    or die "Couldn't open $file: $!";
$message = join('', <MSGBODY>);

for $member (keys %CONTACT) {
    ...
    $fh = $msg->open;
    print $fh $message;