#!C:/Dwimperl/perl/bin/perl.exe

use 5.010;
use strict;
use warnings;
use CGI;



my $dir='C:/Perl64/bin/';
opendir (DIR, $dir);
my $file=readdir DIR;
my $cgi = CGI->new();
 print $cgi->header(),$cgi->start_html();
 print $cgi->start_ul();
 while ($file = readdir DIR) {
  #print $cgi->h1($file);
  my $anchor=$cgi->a({ 'href' => "$dir"."$file" }, $file);
  print $cgi->li($anchor);
}
closedir DIR;

print $cgi->end_ul(),$cgi->end_html();