Let's imagine, I have a program:

#!/usr/bin/perl -w
use strict;
use My::Module;

my $foo = "some string"
my $bar = Somefunction();
[download]

and a module

package My::Module;
our @EXPORT = qw/Somefunction/;
use Exporter;
our @ISA = qw/Exporter/;

sub Somefunction
{
   # do something;
}
[download]

I want to use the information contained in $foo in the module. I know, I could pass $foo as an argument, but I have a lot of functions in my module and I would like to avoid this redundant information.

I have already tried things like $main::foo, but it does not work (maybe I am missing something, or it might even be a completely stupid idea, I must say I have no clue).

Could someone please just tell me if there is a smart way of accessing a variable in a subroutine (the shorter the better).