diff --git a/pkgs/misc/tex/nix/find-includes.pl b/pkgs/misc/tex/nix/find-includes.pl
new file mode 100644
index 00000000000..0066972bb92
--- /dev/null
+++ b/pkgs/misc/tex/nix/find-includes.pl
@@ -0,0 +1,56 @@
+use strict;
+use File::Basename;
+
+my $root = $ENV{"rootFile"};
+my $out = $ENV{"out"};
+
+open OUT, ">$out" or die;
+print OUT "[\n";
+
+# We search for files relative to the root file.  TODO: search
+# relative to the paths in $TEXINPUTS.
+die unless substr($root, 0, 1) eq "/";
+my ($x, $path, $y) = fileparse($root);
+
+$path =~ s/\/$//;
+
+my @workset = ();
+my %doneset = ();
+
+push @workset, $root;
+
+while (scalar @workset > 0) {
+
+    my $fn = pop @workset;
+    next if (defined $doneset{$fn});
+
+    if (!open FILE, "< $fn") {
+	print STDERR "(cannot open $fn, ignoring)\n";
+	next;
+    };
+    
+    print OUT "$fn\n";
+    $doneset{$fn} = 1;
+
+    while (<FILE>) {
+	if (/\\input\{(.*)\}/) {
+	    my $fn2 = $1;
+            if (substr($fn2, 0, 1) ne "/") {
+		$fn2 = $path . "/" . $fn2;
+	    }
+	    push @workset, $fn2;
+	} elsif (/\\documentclass(\[.*\])?\{(.*)\}/) {
+	    my $fn2 = $2;
+            if (substr($fn2, 0, 1) ne "/") {
+		$fn2 = $path . "/" . $fn2;
+	    }
+	    push @workset, $fn2 . ".cls";
+	}
+        # !!! also support \usepackage
+    }
+    
+    close FILE;
+}
+
+print OUT "]\n";
+close OUT;