use mypackage;
my $value = mypackage::some_sub();
print $value; # output: 2

##</code><code>##

package mypackage;
sub some_sub{
  my $var = 2;
  return $var;
}