=begin
A Sample Script that ask for 2 numbers and show
different mathematical operations.
=cut;
use strict;
use warnings;

print "Insert the first number:";   #Ask for the first vale.
    my $FirstNumber = <STDIN>;      #Assing user input to the variable.
    chomp $FirstNumber;             #Eliminate New line.
print "Insert a second number:";    #Ask for a second value.
    my $SecondNumber =<STDIN>;
    chomp $SecondNumber;
    my $SUM = $FirstNumber + $SecondNumber;#Sum declaration.
    my $REST = $FirstNumber - $SecondNumber;#Rest declaration.
    my $MULT = $FirstNumber * $SecondNumber;#
    my $DIV = $FirstNumber / $SecondNumber;
    my $MOD = $FirstNumber % $SecondNumber;
    my $EXP = $FirstNumber ** $SecondNumber;
        print "The sum of: $FirstNumber " . "AND $SecondNumber is: $SUM\n";
        print "The rest of: $FirstNumber ". "AND $SecondNumber is: $REST\n";
        print "The multiplication of: $FirstNumber ". "AND $SecondNumber is: $MULT\n";
        print "The division of: $FirstNumber ". "AND $SecondNumber is: $DIV\n";
        print "The modulo of: $FirstNumber ". "AND $SecondNumber is: $MOD\n";
        print "The exponentiation of: $FirstNumber ". "AND $SecondNumber is: $EXP\n";