Alias /logs/ "/var/log/vista/stcr2tsvr/"

<Directory "/var/log/vista/stcr2tsvr/">
    Options Indexes MultiViews FollowSymLinks
    AllowOverride None
    Order allow,deny
    Allow from all
</Directory>

##</code><code>##

#!/usr/bin/perl
use strict;
use CGI;

my $list = new CGI;
my $fileDir = "/var/log/vista/stcr2tsvr/";
my $alias = "/logs/";
my @files;

print $fileDir;

opendir DIR, "$fileDir";

    @files = grep(/\.log$/,readdir(DIR)); ## Example file to read 20150210-dubr3psvr-backup.log

    closedir DIR;

print $list->header("text/html"),
      $list->start_html("Files in $fileDir"),
      $list->p("These are the files in $fileDir");

foreach my $file (@files) {
    print $list->p(
            $list->a({-href=>$alias.$file},
            $file)
            );
}

print $list->end_html;