@time = (localtime())[3..5];
$time[1]++;
$time[2] += 1900;
print join ('/', @time);