sub import {
    my $pkg = shift;  # "cacher" in this case
    my $dir = $_[0] || "/tmp";
    setup_cachehash($dir);
    ...
}

sub setup_cachehash {
    ...
}