use POSIX qw(fmod) ;
  fmod(int(abs($_[0]) * 10**$D + 0.5), 10**($D-2))