my $HOME = $ENV{'HOME'} || ( getpwuid $> )[7] 
  or die "Uh oh, I've been evicted...\n";
##</code><code>##

package ProgConfig;

sub import {
  my $package    = shift;

  my $config_dir = shift || $ENV{'HOME'} || ( getpwuid $> )[7] 
    or die "Shazbot! Where's my config dir at?\n";

  # do whatever to load config
}
1;
##</code><code>##

use ProgConfig '/path/to/my/config_dir';