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