Today is <% $a = localtime(time); print $a; %>