sidburn@sid:~$ date
Wed Jul  9 18:39:28 CEST 2008

sidburn@sid:~$ perl -MDateTime -wle 'print DateTime->now(time_zone => "Europe/Berlin")->strftime("%d.%m.%Y %H:%M:%S GMT %z")'
09.07.2008 18:39:30 GMT +0200

sidburn@sid:~$ perl -MDateTime -wle 'print DateTime->now(time_zone => "Australia/Sydney")->strftime("%d.%m.%Y %H:%M:%S GMT %z")'
10.07.2008 02:39:33 GMT +1000

sidburn@sid:~$ perl -MDateTime -wle 'print DateTime->now(time_zone => "America/Chicago")->strftime("%d.%m.%Y %H:%M:%S GMT %z")'
09.07.2008 11:39:37 GMT -0500