use strict;
use warnings;

use CGI qw(:all);

print header(),
    ul( map li( a( {href => $_}, $_ ) ), <*.*> )
;


##</code><code>##