use CGI qw/:standard /;
use File::Basename;

my @links = map { a( {-href=>$_}, fileparse($_)[0] ) } @files;

##</code><code>##

 print table({-border=>undef},
       caption('List  of files on this server'),
       map ({ Tr({-align=>'CENTER',-valign=>'TOP'},
                 td($_)) } @links )
       ), "\n";