#! /usr/bin/perl
use strict;
use warnings;

#////////////////////////////////////////
sub whoami {
    print "Just entered subroutine ", (caller(1))[3], "\n";
    return;
}

#////////////////////////////////////////
sub one_times_two {
    whoami();
    my( $one, $two ) = @_;
    return $one * $two;
}

#////////////////////////////////////////

my $one   = 12;
my $two   = 10;
my $three = one_times_two( $one, $two );
my $four  = 2 * $three;

print "2 x $three = $four\n";

exit 0;