Select Code to Download

P:\test>perl -le"print scalar localtime; $ENV{TZ}='PST8PDT'; print sca
+lar localtime; system 'perl -le \"print scalar localtime\"' "
Thu Jan 19 19:52:12 2006
Thu Jan 19 19:52:12 2006
Thu Jan 19 11:52:12 2006

#include <windows.h> 
#include <stdio.h> 
...
    printf( "%.19s %s\n", asctime( newtime ), am_pm );    
    return 0; 
}

P:\test>ltime TZ=PST8PDT
Thu Jan 19 12:20:55 AM

#! perl -slw
use strict;
...
P:\test>524251

P:\test>Thu Jan 19 12:32:30 2006

#! perl -slw
use strict;
...

Pacific: Thu Jan 19 12:41:24 2006