Select Code to Download

#!/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>';