use strict;
use warnings;
use LWP::Simple;
use MIME::Lite;

my $html = get('http://site.com/pagetest.html') or die "no html\n";

my @mailto = map "ok$_\@ok.com", (1..3);

for my $to (@mailto) {
   my $msg  = MIME::Lite->new(
       From     => 'master-ok@ok.com',
       To       => $to,
       Type     => 'text/html',
       Subject  => 'Hell is breaking loose!',
       Data     => $html,
   );

   $msg->send or die "couldn't send message to '$to'\n";
}