my $config_dir = shift || $ENV{'HOME'} || ( getpwuid $> )[7] 

##</code><code>##

 

my $config_dir = $_[1] || $ENV{'HOME'} || ( getpwuid $> )[7] 

##</code><code>##

ProgConfig