here's the whole thing; should have posted it in the 1st place.

# open configuration file
my $cfg = new Config::Simple($config_file)
  or die "Can't open configuration file: $config_file\n";

$server             = $cfg->param('server');
$database           = $cfg->param('database');
$user               = $cfg->param('user');
$password           = $cfg->param('password');
$logdir             = $cfg->param('logdir');
$basedir            = $cfg->param('basedir');
$inputdir           = $cfg->param('inputdir');
$inputextension     = $cfg->param('inputextension');
$cleanupdays        = $cfg->param('cleanupdays');
$countyid           = $cfg->param('countyid');
$unzipdir           = $cfg->param('unzipdir');
$sleeptime          = $cfg->param('sleeptime');
$mail_host          = $cfg->param('mail_host') || 'mail@xxx.org';
$support_addr       = $cfg->param('support_addr') || 'support@xxx.org'
+;
$support_cc         = $cfg->param('support_cc') || q{};
$ar_court_text      = $cfg->param('ar_court_text');
$ar_court_ori       = $cfg->param('ar_court_ori');
$debug_print        = $cfg->param('debug_print');
$delete_txt_file    = $cfg->param('delete_txt_file');
$from_email_address = $cfg->param('from_email_address');
$to_email_address   = $cfg->param('to_email_address');
$cc_email_address   = $cfg->param('cc_email_address');
$send_email         = $cfg->param('send_email');
$init_version        = $cfg->param('init_version');

&help()
  if ( $server eq q{}
    || $database eq q{}
    || $user eq q{}
    || $password eq q{}
    || $logdir eq q{}
    || $basedir eq q{}
    || $inputdir eq q{}
    || $inputextension eq q{}
    || $cleanupdays eq q{}
    || $countyid eq q{}
    || $sleeptime eq q{}
    || $unzipdir eq q{}
    || $mail_host eq q{}
    || $support_addr eq q{}
    || $ar_court_text eq q{}
    || $ar_court_ori eq q{}
    || $debug_print eq q{}
    || $delete_txt_file eq q{}
    || $from_email_address eq q{}
    || $to_email_address eq q{}
    || $send_email eq q{} 
    || $init_version eq q{}
);
[download]

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.