#!/usr/bin/perl
use strict;
use warnings;

use Date::Simple qw(today);

my $d = today() - 1;
$d-- while ($d->day_of_week == 0 or $d->day_of_week == 6);
print $d, $/;