#!/usr/bin/perl
# file name here
use warnings;
use strict;

my @timelist = localtime;
$timelist[4] = $timelist[4]+1;
$timelist[5] = $timelist[5]+1900;
my $target = $timelist[4]."-".$timelist[3]."-".$timelist[5];

print $target, "\n";