#!/usr/bin/perl -w

# DESVIACIONES DE COSTES ESTANDAR

use strict;

print "Entre el coste estándar: ";
chomp (my $c = <STDIN>);

print "Entre la cantidad estándar: ";
chomp (my $q = <STDIN>);

print "Entre el precio real: ";
chomp (my $p = <STDIN>);

print "Entre la cantidad real: ";
chomp (my $x = <STDIN>);

my $DC = $c * ($x - $q);
print "\nLa desviación en cantidades es de $DC unidades monetarias\n";
my $DP = $x * ($p - $c);
print "La desviación en costes es de $DP unidades monetarias\n";
my $T = $DC + $DP;
print "\nLa desviación total es de $T unidades monetarias\n";

exit 1;