1#!/usr/bin/perl
2
3use strict;
4use warnings;
5
6sub my_func
7{
8    my ($num1, $num2) = @_;
9
10    print $num1+$num2, "\n";
11
12    my_other_func ($num1*3, $num2*24);
13
14    return $num1*$num2;
15}
16
17sub my_other_func
18{
19    my ($num1, $num2) = @_;
20
21    print "my_other_func: n1=<$num1> n2=<$num2>\n";
22
23    return $num1 * $num2;
24}
25
26my_func(1, 50);
27