#!/usr/bin/perl
use strict;
use warnings;
use POSIX 'strftime';

my @date = (localtime)[0 .. 5];
$date[3]--;

print strftime "%Y-%m-%d", @date;