#!/usr/bin/perl -w
use strict;
use Math::Round;
my $number=1100.64686081907;
$number=nearest(.01,$number);
print "$number\n";
___OUTPUT___
  1100.65