sub produce_report {
  my $call_list = shift;
  my $vars = { 'call_list' => $call_list };
  print Dumper($vars);
  $tt->process('nightly_bounced_emails_report.tex.tt2',
                $vars,
                'bounced_email_report.pdf',
                binmode => 1) || die $tt->error();

  return;
}