Select Code to Download

$ date "+%Y-%m-%dT%H:%M:%S%z"
2011-02-10T01:13:07-0800
...
$ 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 --

...
2011-02-10 09:25:08+0000
2011-02-10 01:25:08-0800
2011-02-10 17:25:08+0800