Bueno, estamos suponiendo que estás hablando del módulo DateTime.
Hay varias formas de hacerlo. Una de ellas es agregando el '0', "a mano":
Using perl Syntax Highlighting
my $mes_actual = substr('0' . $fechabucle->month(), -2
); # nos quedamos con los 2 últimos dígitosColoreado en 0.001 segundos, usando
GeSHi 1.0.8.4
O también, se puede usar una función de DateTime, para obtener el valor exacto:
Using perl Syntax Highlighting
my $mes_actual = $fechabucle->strftime('%m');Coloreado en 0.001 segundos, usando
GeSHi 1.0.8.4
Más información, en la página de
DateTime.