#!/usr/bin/perl -w
use strict;
use DateTime;
DateTime->DefaultLocale( 'fr_FR' );

my $dt = DateTime->now;
$dt->set_time_zone( 'Europe/Paris' );
$dt->add( days => 1 ); # $dt->subtract( days => 1 );
print $dt->ymd('-');