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