use strict;
package Foo;

our $bar = "guggug!\n";

package main;

print $bar;
__END__
guggug!