#!/usr/bin/perl -w

use strict;

my @time = localtime;

my $year = $time[5] + 1900;
my $month = $time[4] + 1;
my $day = $time[3];

printf "%4d-%02d-%02d\n", $year, $month, $day;