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