#!/usr/bin/perl
use strict;
use warnings;
use Date::Manip;
use feature 'say';

my $date = ParseDate("Today");
unless (UnixDate($date, "%A") eq "Friday"){
    $date = ParseDate("next Friday");
}
say UnixDate($date,"%d-%m-%y");

=different format
my $date = ParseDate("Today");
$date = ParseDate("next Friday")
    unless (UnixDate($date, "%A") eq "Friday");
say UnixDate($date,"%d-%m-%y");
=cut

__END__

$ perl test.pl
26-01-18