$ 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