#!/usr/bin/perl
open(HANDLE, "ls|") or die;
while (<HANDLE>) {
   ($lkey) = split(/\n/);
   print "<a href=$lkey>";
   $lkey =~ tr/_/ /;
   $lkey =~ s/[.]html//g;
   $lkey =~ s/[.]htm//g;
   print "$lkey</a><br>\n";
}
close (HANDLE);