use strict;
use warnings;
use Date::Calc qw(Today 
                  Add_Delta_Days 
                  Day_of_Week);


my @today = Today();
    
# Die naechsten 4 Montage
my $current_dow = Day_of_Week(@today);
my @monday;

if($current_dow == 1)  # heute ist Montag 
  { @monday = Add_Delta_Days(@today, 7); }
else                   # heute ist nicht Montag 
  { @monday = Add_Delta_Days(@today, 1-$current_dow); }
for my $weeks (1..4) 
  {
  my @date = Add_Delta_Days(@monday, $weeks * 7);
  print join('/',@date),"\n";
  }