Select Code to Download

$cost_associated_with_lost = 
  ($cost_differential + 
...
   $cost_of_loss_of_production_or_loss_of_customers +
   $monetary_value_of_loss_of_morale_of_remaining_employees)
   * (1 + $turnover_rate_of_newcomer_to_organization)

foreach (1..$total_number_of_years) {
    $cost_differential += ( $annual_remuneration_of_new_employee - $an
+nual_remuneration_of_person_leaving ) /  (1 + $interest_rate_paid_by_
+employer / 100)**$_
}

$total_number_of_years = 10;
$interest_rate_paid_by_employer = 10;
...
$cost_of_loss_of_production_or_loss_of_customers =  55440;
$monetary_value_of_loss_of_morale_of_remaining_employees = 3000;
$turnover_rate_of_newcomer_to_organization = 0.1;

#!/usr/bin/perl
use warnings;
...

__DATA__
10 10 64800 60380 3150 10000 48600 1000 55440 3000 0.1