sub print_report {
   my ($today, $yesterday) = @_;

}