#!/usr/bin/perl -w

use strict;

my @time = localtime;

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