if ($cfgpath) {
    use Config::Simple ('-lc');
    my $cfg = new Config::Simple($cfgpath)
      or die "Could not find configuration file $cfgpath\n";
.....