1 files changed, 25 insertions, 0 deletions
diff --git a/minimun b/minimun
new file mode 100755
index 0000000..92abe33
--- /dev/null
+++ b/minimun
@@ -0,0 +1,25 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+
+use IPC::Run qw(run);
+
+my ($in, $out);
+
+$in .= "\\relax\n";
+
+open(FORMAT, '<', 'format.tex');
+while (my $line = <FORMAT>){
+  $in .= $line;
+}
+close(FORMAT);
+
+$in .= "bruh\n";
+$in .= "\\bye\n";
+
+run ['/usr/bin/pdftex'], '<', \$in, '>', \$out;
+print "Content-type: application/pdf\n\n";
+open(DOC, '<', 'texput.pdf');
+while (<DOC>){
+  print;
+}