Package Foo;
require Exporter;

our @ISA        = qw(Exporter);
our @EXPORT     = qw($foo foobar);

$foo = "bar";

sub foobar
{
    $blah = "hi";
    print "$foo $blah\n";
}

1;

##</code><code>##

#!/usr/bin/perl
use Foo qw(foobar);
$bar = "hi";    
foobar();

##</code><code>##

perl -w foo.pl