diff options
-rwxr-xr-x | minimun | 15 |
1 files changed, 4 insertions, 11 deletions
@@ -6,20 +6,13 @@ 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 .= "\\award\n"; $in .= "\\bye\n"; -run ['/usr/bin/pdftex'], '<', \$in, '>', \$out; +run ['/usr/bin/pdftex', 'format.tex'], '<', \$in, '>', \$out; print "Content-type: application/pdf\n\n"; -open(DOC, '<', 'texput.pdf'); +open(DOC, '<', 'format.pdf'); while (<DOC>){ print; } +close(DOC); |