#!/web/progs/tools/bin/perl -w open (LIST, "list.txt") || die "file list.txt not found\n"; @desc = ; close (LIST); foreach $item (@desc) { open (DFILE,"> $item") || die " File $item could not be created\n"; print DFILE ""; print DFILE ""; print DFILE "Soils"; print DFILE ""; print DFILE ""; print DFILE " "; print DFILE " "; print DFILE " "; print DFILE " "; print DFILE " <\/frameset>"; print DFILE " "; print DFILE " <\/frameset>"; print DFILE " "; print DFILE " "; print DFILE " <\/frameset>"; print DFILE " <\/frameset>"; print DFILE "<\/frameset>"; print DFILE ""; print DFILE "<\/html>"; close (DFILE); }