<% response.expires=-1 response.write(time) %> #### #!/usr/bin/perl -wT use DateTime; print "Content-type: text/html\n\n"; print DateTime->now;