my ($y,$m) = (localtime)[5,4];
$m+=1;
$y+=1900;