use strict;
use warnings;
use Date::Calc qw( Today 
                   Date_to_Days 
                   Add_Delta_YMD
                   Nth_Weekday_of_Month_Year );

my ($dow, $n, $recent_meeting, $next_meeting);

my ($year,$month,$day) = Today();

my $tomorrow = Date_to_Days($year,$month,$day) + 1;

$dow = 3; # Mittwoch
$n   = 1; # erster Wochentag

$recent_meeting = Date_to_Days(
    Nth_Weekday_of_Month_Year($year,$month,$dow,$n) );

($year,$month,$day) = Add_Delta_YMD($year,$month,$day, 0,1,0);

$next_meeting = Date_to_Days(
    Nth_Weekday_of_Month_Year($year,$month,$dow,$n) );

if (($tomorrow == $recent_meeting) ||
    ($tomorrow == $next_meeting))
  {
  print "Mail an die Mitglieder schicken\n";
  }