Help for this page

Select Code to Download


  1. or download this
    use CGI qw/:standard /;
use File::Basename;

my @links = map { a( {-href=>$_}, fileparse($_)[0] ) } @files;
  2. or download this
     print table({-border=>undef},
       caption('List  of files on this server'),
       map ({ Tr({-align=>'CENTER',-valign=>'TOP'},
                 td($_)) } @links )
       ), "\n";