[Perl] Impresion de 2 digitos en vez de 1 ???

[Ricardo Cumberbatch L.]

Hola lista q tal,

Me podrian explicar, porfavor como puedo yo hacer para q una variable q da
un numero este sea de 2 digitos y no 1.

Ejemplo:
while ($_ = <LECTOR>) {
.
.
.
$contador+=1;
print "$contador\n"  # esto en pantalla me da como resultado 1,2,3,4,5,etc.
.
.
.		     
}

Y lo q quiero es q en pantalla salga 01,02,03,04,...09,10,11,12...,etc,etc

Espero haberme explicado. y gracias por la ayuda