package Mod; sub foo { print "Output: @_\n"; } sub import { my ($pkg, %options) = @_; __PACKAGE__->foo(arg => $options{-arg}); } 1;