Select Code to Download

  use Math::Round qw(nearest);

  $quote = 418.00;
  $price = nearest(10, $quote);

sub nearest {
 my ($targ, @inputs) = @_;
...
 }
 return (wantarray) ? @res : $res[0];
}