#!/usr/bin/env perl 
use strict;
use warnings;
use Time::Piece;
use Time::Seconds;

my $td = localtime;

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

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

$td -= $days_to_subtract * ONE_DAY;

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