function in perl equivalent to trunc in Oracle

[Ramakant]

Is there any function in perl equivalent to trunc in Oracle.  If yes then please let 
me  know at the earliest.


  Thanks
 Ramakant Agarwal
  Hyderabad