my ($a, $b, $c, $d) = localtime(time);
print $d;