Help for this page
#!/usr/bin/perl use CGI qw(:all); ... print header, start_html("sample"), h1("sample"); print map { a({ -href => uri_escape($_)}, escapeHTML($_)), br } glob " +*"; print end_html;
print '<A HREF="', ... '">', escapeHTML($_), '</A>';