use strict;
use Module1 qw(compute_value);

my $variable1 = compute_value();