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;