#!/usr/bin/perl
use strict;
use warnings;
sub my_func
{
my ($num1, $num2) = @_;
print $num1+$num2, "\n";
my_other_func ($num1*3, $num2*24);
return $num1*$num2;
}
sub my_other_func
{
my ($num1, $num2) = @_;
print "my_other_func: n1=<$num1> n2=<$num2>\n";
return $num1 * $num2;
}
my_func(1, 50);