or download this
#!/usr/bin/perl -w
use strict;
...
my ($reports, $sites) = _read_cfg($config_dir, $config_file, $site_fil
+e);
my $missed_reports = _get_reports($report_dir, $day, $log_date, $repor
+ts, $sites);
_print_report($missed_reports, $log_date);