package module;
use vars qw/@ISA/;
@ISA = qw(Exporter);

my $path;

sub import {
    my $self = shift;
    my %args = @_;

    # of course you would do something more useful than
    # just printing it
    print "The path is $args{path}\n";
    # at the very least you probably want to store it
    # somewhere you can get at it later.
    $path = $args{path};
}