$ perl -MDateTime -le"print DateTime->now->strftime( q!%F-%H-%M-%S%z! );" 2011-04-06-07-04-11+0000 $ perl -MDateTime -le"print DateTime->now( qw[ time_zone local ] )->strftime( q!%F-%H-%M-%S%z! );" 2011-04-06-00-04-29-0700