#!/usr/bin/env perl
use utf8;
###############################################################################
# This program performs a math trick.
# 
# Copyright © 2020 Richard Lesh.  All rights reserved.
###############################################################################

use strict;
use warnings;

MAIN:
{
    my $value = int(rand(100));
    my $ORIGINAL_VALUE = $value;
    print "Value: ", $value, "\n";
    $value *= 2;
    print "Double Value: ", $value, "\n";
    $value += 10;
    print "Now add 10: ", $value, "\n";
    $value /= 2;
    print "Cut in half: ", $value, "\n";
    $value -= $ORIGINAL_VALUE;
    print "Subtract Original Value: ", $value, "\n";
    print "Answer above should be 5\n";
}