Converter datas em perl (str2time)

use Date :: Parse;
use DateTime;

meu $ str = “Ter, 20 de setembro de 2011 08:51:08 -0500”;
meu $ epoch = str2time ($ str);
meu $ datetime = DateTime-> from_epoch (epoch => $ epoch);