use vars qw($var);

$var = 'some value';

&Package::printvar;

package Package;

sub printvar {
  print $main::var;
}