$fee = determine_maximum_fee();

sub determine_total_fee {


##</code><code>##

  $fee = ($tfee / 100 + $sfee/100 + 0.0000001) * 100

##</code><code>##

  $mfee = 200 if ($fee >= 100);

##</code><code>##

  $fee = $mfee if $mfee;

##</code><code>##

  return $fee;
}

##</code><code>##

use constant BREAK_POINT => 100;
use constant BONUS_FEE   => 200;

my $total_fee = $tfee+$rfee >= BREAK_POINT ? BONUS_FEE : $tfee+$rfee;