Fecha de hoy en Perl en formato MM / DD / YYYY

Estoy trabajando en un programa de Perl en el trabajo y me quedo con (lo que creo que es) un problema trivial. Simplemente necesito crear una cadena en el formato '06 / 13/2012 '(siempre con 10 caracteres, por lo que 0 para números menores a 10).

Esto es lo que tengo hasta ahora:

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

Respuestas a la pregunta(7)

Su respuesta a la pregunta