minimun


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

#!/usr/bin/perl
use strict;
use warnings;

use IPC::Run qw(run);
use Time::HiRes qw( time );

my $in;

$in .= "\\award\n";
$in .= "\\bye\n";

my $timestamp = time;
run ['/usr/bin/pdftex', '-jobname', "$timestamp", 'format.tex'], '<', \$in;
print "Content-type: application/pdf\n\n";
open(DOC, '<', "$timestamp.pdf");
while (<DOC>){
  print;
}
close(DOC);
unlink "$timestamp.pdf", "$timestamp.log";