Select Code to Download

my $date;
my $lastdate = '';
...
   $lastdate = $date;
}
print_report( $lastdate, $logdata );

  ( $date, my $stuff ) = parse( $_ );
  $logdata .=  $stuff;
  # etc.

if ( $lastdate and $lastdate ne $date ) {

my $date;
my $lastdate = '';
...
   }
   $lastdate = $date;
}