#!/usr/bin/perl

package fred;
use strict;

use vars qw/$test1 $test2/;
$test1 = "foo";
$test2 = "frobizten";

package main;

print "test1 from fred is: $fred::test1\n";
print "test2 from fred is: $fred::test2\n";