#!/usr/bin/env perl
use warnings;
use strict;

my($day, $month, $year) = (localtime)[3,4,5];
$month = sprintf '%02d', $month+1;
$day   = sprintf '%02d', $day;
print $year+1900, $month, $day, "\n";