[johnsca@CORY tmp]$ cat tst.pm
#!/usr/bin/perl

package tst;

use warnings;
use strict;

sub import {
  my $self = shift;
  my $hr   = shift;
  print "foo: `$hr->{foo}'\n";
}

1;
[johnsca@CORY tmp]$ cat tst
#!/usr/bin/perl

use warnings;

use lib '.';
use tst { foo => 'bar' };
[johnsca@CORY tmp]$ ./tst
foo: `bar'