Thank You ikegami exactly what I was looking for with just a line added to format the result to a date only.

 my $dt = DateTime->today();
my $dow = $dt->day_of_week();
$dt->subtract( days => $dow % 7 );
    $dt = $dt->date();
[download]

Has been an interesting afternoon and the support from all monks very much appreciated as each answer helps improve my old brain to think perl again.