It will pass the value of $bar to the script...

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

and your package:

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