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