Eu estou trabalhando em um programa Perl no trabalho e preso em (o que eu acho que é) um problema trivial. Eu simplesmente preciso construir uma string no formato '06 / 13/2012 '(sempre 10 caracteres, portanto, 0 para números menores que 10).

Aqui está o que eu tenho até agora:

use Time::localtime;
$tm=localtime;
my ($day,$month,$year)=($tm->mday,$tm->month,$tm->year);