#!/usr/local/bin/perl

use strict;
use warnings;
use POSIX qw(strftime);

my $seit = strftime("%Y-%d-%m", (localtime(time - 86400 * 3)) );
print "$seit\n";