test.pl
------
#!/usr/bin/perl -w

use strict;
use test_module;

my $var=10;
my $new_var=testsub($var);
print "$new_var\n";