#!/usr/bin/perl -w

use strict;

my $base = $ARGV[0];
unless (defined $base){
    die "$0 <base>"; 
}

printf "BASE        =  %.02f\n", $base;

my $IVA = $base * 0.21;
printf "IVA         =  %.02f\n", $IVA;

my $retenciones = $base * (-0.19);
printf "Retenciones = %.02f\n", $retenciones;

my $pagado = $base + $IVA + $retenciones;  # por supuesto, las retenciones restan
printf "Pagado      =  %.02f\n", $pagado;

exit 1;