Tengo la siguiente función de Perl para mostrar hasta dos decimales. No funciona cuando el valor de entrada es 2.01, y da la salida como 2 en lugar de 2.01. No estoy seguro de por qué se está redondeando.

En lugar de printf escribí la salida en un archivo, pero aún así me da salida1 como 2.

    my $ramount = 2.01;
    $ramount = int($ramount*100)/100;
    printf "output1: $ramount";

Si tengo valores como .2, .23, .2345, 1,23, 23.1 y 9, ¿qué función puedo usar para rellenar ceros de modo que muestre 0.2, 0.23, 0.2345, 1, 23, 23.1 y 9?