Вы не очень точно указали, где взять время. Это работает для текущей даты, используя модуль core Time :: Piece :
use Time::Piece;
print localtime->dmy(''); # 05042011
Если у вас есть время в переменной, вы можете сделать
use Time::Piece;
print localtime($time)->dmy('');
Пустая строка в вызове dmy
является разделителем.