$ perl ./testdate
dt1 ftw!
dt1 Fri May  2 07:53:00 2003 JST
dt1 Fri May  2 04:23:00 2003 IST
dt2 Fri May  2 05:53:00 2003 IST