sub send_report {
   my ($list, $report, $template) = @_;

   my @recipients = get_list($list);

   my $email = format_EMail($template);
   
   send_EMail( to=>[@recipients], body=>$email, attachments=>[$report] );
}