use Date::Format;
print time2str('%a, %d %b %Y %H:%m:%S GMT', time()), "\n";


##</code><code>##

[% USE date %]

<pubDate>[%- gmt = item.created_time -%]
[%- date.format(gmt, '%a, %d %b %Y %H:%m:%S GMT') -%]</pubDate>

##</code><code>##

use Date::Calc;
my $item_time =
    Date::Calc::Mktime
    ( $mysql_timestamp =~
      /^(\d\d\d\d)\D*(\d\d)\D*(\d\d)\D*(\d\d)\D*(\d\d)\D*(\d\d)$/ );

print time2str('%a, %d %b %Y %H:%m:%S GMT', $item_time), "\n";