Help for this page
my $now= time(); my($y,$m,$d)= (localtime( $now + 60*60*(12-(localtime($now))[2]) ... ))[5,4,3]; print sprintf "%04d-%02d-%02d", 1900+$y, 1+$m, $d; print $/;
www.com | www.net | www.org
No recent polls found
