#!/usr/bin/perl -w

use strict;

package Foo;

use vars qw/$foo/;
$foo = "bar";

package main;

# always use $Foo::foo from here on down