use strict;
use warnings;
use DateTime;
use DateTime::Format::Strptime;

my $start_of_week =
    DateTime->today()
            ->truncate( to => 'week' );
$start_of_week->set_formatter( DateTime::Format::Strptime->new(pattern => "%d-%m-%y") );
	
for ( 0..6 ) {
	my $teden = $start_of_week->clone()->add( days => $_ );
	print "$teden\n";
}