package Foo;

sub bar {
  print $::bar, "\n";
}

package main;

$bar = "Hello, World!";
Foo::bar();