#!/usr/bin/perl -w

use strict;

my @time = localtime;

my ($year, $month, $day) = ($time[5] + 1900, $time[4] + 1, $time[3]);
printf "%4d-%02d-%02d\n", $year, $month, $day;