Como faço para definir a precisão do ponto flutuante em Perl?

Existe uma maneira de definir a precisão de ponto flutuante do script Perl (para 3 dígitos), sem ter que alterá-lo especificamente para cada variável?

Algo semelhante ao TCL:

global tcl_precision
set tcl_precision 3