Perl - Función decimales

Necesito una función en perl que me permita dejar solamente la parte entera de un número real

int ($vble);

La funcion que buscas es int

como hacer f:entre llaves(x,y):y:f(x) - x al cuadrado; XER

necesito calcular el promedio de notas para alumnos, pero siempre me tiene que dar como resultado un numero entero, si es mayor 0,5 debe sumar 1 al entero y si es menor o igual 0.5 me de el entero.

necesito calcular el promedio de notas para alumnos, pero siempre me tiene que dar como resultado un numero entero, si es mayor 0,5 debe sumar 1 al entero y si es menor o igual 0.5 me de el entero.