$ date "+%Y-%m-%dT%H:%M:%S%z" 2011-02-10T01:13:07-0800 $ date --iso-8601 2011-02-10 $ perl -MTime::Piece -le"print Time::Piece->localtime->strftime(q!%Y-%m-%dT%H:%M:%S%z!);" 2011-02-10T01:13:41PST #### #!/usr/bin/perl -- use strict; use warnings; use DateTime; print DateTime->now->strftime(q!%F %T%z!), "\n"; print DateTime->now( qw! time_zone America/Los_Angeles ! )->strftime(q!%F %T%z!), "\n"; print DateTime->now( qw! time_zone Asia/Taipei ! )->strftime(q!%F %T%z!), "\n"; __END__ 2011-02-10 09:25:08+0000 2011-02-10 01:25:08-0800 2011-02-10 17:25:08+0800