# in Foo.pm
package Foo;

use strict;
use Exporter;
use vars qw(@ISA @EXPORT);

@ISA = qw(Exporter);
@EXPORT = qw(foobar);

sub foobar {
    return "Foo!"; 
}
1;