#!/usr/local/bin/perl

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

my $fmt = '%Y-%d-%m';
my $delta = -3*24*60*60;    # -3 Tage
my $seit;

my $t = time();
my $d0 = strftime($fmt, localtime ($t));    # Tag (jetzt)
my $d12 = strftime($fmt, localtime ($t+12*60*60)); # Tag (jetzt+12h)
if ($d0 eq $d12) {
    $seit = strftime ($fmt, localtime ($t+6*60*60+$delta));
} else {
    $seit = strftime ($fmt, localtime ($t-6*60*60+$delta));
}
print $seit,$/;