#!/usr/bin/perl -w 

use strict; 
package test_module;
use strict;

sub testsub 
{ 
    my $in_arg= shift;
    my $new_arg=$in_arg+10; 
    return($new_arg); 
} 

my $var=10; 
my $new_var=test_module::testsub($var); 

print "$new_var\n";