1.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.2 +++ b/scripts/pjx_NO_CACHE_callee.pl	Sun Aug 30 02:19:26 2009 -0400
     1.3 @@ -0,0 +1,13 @@
     1.4 +#!C:/strawberry/perl/bin/perl.exe
     1.5 +
     1.6 +use strict;
     1.7 +use CGI;
     1.8 +
     1.9 +my $q = new CGI;
    1.10 +print $q->header();
    1.11 +
    1.12 +my ($sec,$min,$hour,$mday,$mon,$year,$wday,
    1.13 +$yday,$isdst)=localtime(time);
    1.14 +
    1.15 +printf "%4d-%02d-%02d %02d:%02d:%02d\n",
    1.16 +$year+1900,$mon+1,$mday,$hour,$min,$sec;