use strict;
use warnings;

my $day = (localtime)[3];
my $month = (1..12)[(localtime)[4]];
my $year = (localtime)[5] + 1900;

if(length($day) < 2){
    $day = "0".$day;
}

if(length($month) <2){
    $month = "0".$month;
}

print "$year$month$day\n";

exit(0);