Select Code to Download

Select or download this

my $conf = which_conf($configuration_file);
if (-f $conf) {
...
    close($conffile);
    unshift(@ARGV, @conf_args) if @conf_args;
}

Select or download this

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";

Select or download this

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

Select or download this
```
        $line =~ s/\s*\n?$//g;
```
Select or download this
```
        $line =~ s/^\s*//g;
```
Select or download this
```
        $line =~ s/\s+/ /g;
```

Select or download this

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

Select or download this

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

Select or download this
```
    close($conffile);
```

Select or download this

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