##
$variable1 = ComplexCalculation::do_calc();
##
##
use ComplexCalculation;
##
##
use lib '/some/path/to/the/calc/module';
##
##
sub do_calc {
my $v1 = ##... something
my $v2 = ##... other thing
my $v3 = ##... a third thing
return $v1, $v2, $v3
}
##
##
my ($r1, $r2, $r3) = ComplexCalculation::do_calc()
##
##
my ($weight, undef, $depth) = ComplexCalculation::do_calc()