#!/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 " \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/FUN_DOCUMENTS # perl Make_TEXT_Page.pl # Icon