#!/usr/local/bin/perl
  system(                "ls  > Dir_List.txt");
  open(INFILE,           "Dir_List.txt") || die "cannot open $File";
  open(OUTFILE,          ">Fun_Document_Page.html");
  printf OUTFILE         "<html> <body>\n " ; 
  @ArrayOfLines =        <INFILE> ; 
  foreach $Eachline      (@ArrayOfLines) 
{ chomp($Eachline);
  printf OUTFILE         "<a href='$Eachline' /> $Eachline <br>\n " ;
}

  close(INFILE) ;
  printf OUTFILE         "</html> </body>\n " ; 
  close(OUTFILE) ; 

#  cd                  /Users/donsauer/Documents/KEY/KEY0/IDEA2IC/FUN_DOCUMENTS
#  perl                Make_TEXT_Page.pl

#  Icon  
