"); print ("Detailed Table of Contents\n"); print ("

$outputFile = "fulltoc.htm"; open(OUT, ">",$outputFile) or die "couldn't open outputfile: $!"; select OUT; print (""); print ("Detailed Table of Contents\n"); print ("\n"); ##

##

$outputFile = "fulltoc.htm";
open(OUT, ">",$outputFile) or die "couldn't open outputfile: $!";
print OUT ""
        . "Detailed Table of Contents\n"
        . "\n";

##

##

print STDOUT "$file\n";

##

##

next if $file =~ m/^\.htm$/i;   
next unless $file =~ m/\.htm$/i;  # not this?