use DateTime;

my $td = DateTime->today;

my $days_since_friday = ($td->day_of_week - 5) % 7;

my $days_to_subtract = $days_since_friday == 6 ? -1 : $days_since_friday;

$td->subtract( days => $days_to_subtract );

print $td->strftime("%d%m%y");