4 die "where do I put the results?\n";
7 mkdir $ARGV[0],0777 or die "Can't create $ARGV[0]: $!\n";
10 if (/^\.TH \"[^\"]*\" 3 \"([^\"]*)\"/) {
11 if ($state == 1) { close OUT }
13 $fn = "$ARGV[0]/$1.3";
14 print STDERR "Creating $fn\n";
15 open OUT, ">$fn" or die "can't open $fn: $!\n";
17 } elsif ($state != 0) {