use DateTime qw( );

my $dt = DateTime->today();
$dt->set_day(1);
$dt->subtract( days => $dt->day_of_week() );

print($dt->ymd(), "\n");