( POSIX::modf( $x ) )[ 0 ];