I'd say simply store the message body in a variable outside of your loop, and print that to your mail:

my $body;
{
local $/=undef;
open MSGBODY, "<$file" or die "Could not open $file: $!\n";
$body=<MSGBODY>; # slurp message body
close MSGBODY;
}
for $member (keys %CONTACT) {
   ...
   print $fh $body;
   ...
}
[download]

Or am I missing something here?

CU
Robartes-