#!/usr/bin/perl
use CGI qw(:all);
use URI::Escape;

print header, start_html("sample"), h1("sample");
print map { a({ -href => uri_escape($_)}, escapeHTML($_)), br } glob "*";
print end_html;

##</code><code>##

print
  '<A HREF="',
  escapeHTML(uri_escape($_)),
  '">',
  escapeHTML($_),
  '</A>';