#!/usr/bin/perl -w
use strict;

use foo;

our $test = "test";
print "main::   $test";
&foo::out();