my $conf = which_conf($configuration_file);
if (-f $conf) {
	my @conf_args;
	open(my $conffile, '<', "$conf")
	    or warn "$P: Can't find a readable $configuration_file file $!\n";

	while (<$conffile>) {
		my $line = $_;

		$line =~ s/\s*\n?$//g;
		$line =~ s/^\s*//g;
		$line =~ s/\s+/ /g;

		next if ($line =~ m/^\s*#/);
		next if ($line =~ m/^\s*$/);

		my @words = split(" ", $line);
		foreach my $word (@words) {
			last if ($word =~ m/^#/);
			push (@conf_args, $word);
		}
	}
	close($conffile);
	unshift(@ARGV, @conf_args) if @conf_args;
}

##</code><code>##

my $conf = which_conf($configuration_file);
if (-f $conf) {
	my @conf_args;
	open(my $conffile, '<', "$conf")
	    or warn "$P: Can't find a readable $configuration_file file $!\n";

##</code><code>##

	while (<$conffile>) {
		my $line = $_;

##</code><code>##

		$line =~ s/\s*\n?$//g;

##</code><code>##

		$line =~ s/^\s*//g;

##</code><code>##

		$line =~ s/\s+/ /g;

##</code><code>##

		next if ($line =~ m/^\s*#/);
		next if ($line =~ m/^\s*$/);

##</code><code>##

		my @words = split(" ", $line);
		foreach my $word (@words) {
			last if ($word =~ m/^#/);
			push (@conf_args, $word);
		}

##</code><code>##

	close($conffile);

##</code><code>##

	unshift(@ARGV, @conf_args) if @conf_args;