my $dec = 100;  # Change as appropriate to give you the number
                # of decimal places you want

int( ($number * $dec) +
  int($number * $dec) % 2 ? 0.5 * $dec : 0) / $dec