<%init> use Date::Calc qw(:all); my $localtime = localtime(); my $othertime = gmtime(time); my $time = time(); my $seconds_today = $time % 86400; print $othertime."|++ ".$localtime."| ".$time." ".$seconds_today." ".($seconds_today/3600); print Today_and_Now;