Select Code to Download

$web_root C:/www
$domain_root domain

docroot docroot
art_root articles
pic_root pics

Sub docroot{
  my  $self = shift;
...
    $cnf->param(q{art_root}
  );
}

my $article_file = join(
  q{/},
...
  $art_dirname,
  $art_filename,
);