$OUILookup::oui_location = "oui.txt";

##</code><code>##

package Scrap::Foo;
use strict;
use Exporter;
use vars qw/ @ISA @EXPORT $foobar /;
@ISA = qw/Exporter/;
@EXPORT = qw( $foobar );

$foobar = 7;

sub doit {
    print $foobar;
}
1

##</code><code>##

use Scrap::Foo;
use strict;
$foobar = "Hello";
Scrap::Foo::doit;