$ perl -MDateTime -le " print DateTime->now()->strftime( q/%F-%H:%M:%S
+%z/) "
2012-02-07-15:07:12+0000

$ perl -MDateTime -le " print DateTime->now( qw[ time_zone local ] )->
+strftime( q/%F-%H:%M:%S%z/) "
2012-02-07-07:07:15-0800
[download]