#!/usr/local/bin/perl -w
use strict;
use Config::Simple;

my $config_file = shift;
        if (!$config_file) {
                $config_file = "etc/allweb-backup.conf";
        }

my $cfg = new Config::Simple($config_file);
my (%Config);
unless (%Config = $cfg->vars()) {
        die "CRITICAL: $config_file is not a valid INI file!\n";
}