#!/usr/bin/perl -w

# SOVIETIC INCENTIVES

use strict;

my $M1 = 0.03;
my $M2 = 0.05;
my $M3 = 0.02;

print "Enter objective quantity number: ";
chomp (my $o = <STDIN>);

print "\nEnter real quantity number: ";
chomp (my $r = <STDIN>);

print "\nEnter cost: ";
chomp (my $c = <STDIN>);

my $i;
if ($r < $o){
    $i = $M1 * $r;
}elsif ( $r > $o ){
    $i = $o * $M2 - ($r-$o) * $M3;
}else{
    $i = $r * $M2;
}
$i *= $c;

print "\nThe corresponding incentive is = $i\n";

exit 1;

__END__

Based freely on:

Benito Arruñada, «Economía de la empresa: un enfoque contractual», Ariel, 1990.