# warn( Data::Dumper->Dump( [ $upcoming ], [ 'overdue' ] ) );
my $from_address = $upcoming->{branchemail} || $admin_adress;
die Dumper($upcoming);
my $letter;
my $borrower_preferences;
-