Select Code to Download

use DateTime::Format::Strptime qw();
print DateTime::Format::Strptime
...
    )->parse_datetime('Fri Jun 16 18:04:03 2012')
    ->strftime('%m %d %T %Y');
# '06 16 18:04:03 2012'

use DateTime::Format::RFC3339 qw();
use DateTime::Format::Strptime qw();
...
        )->parse_datetime('Fri Jun 16 18:04:03 2012')
    );
# '2012-06-16T18:04:03+00:00'