my $vars = {title => '', rows => \@rows, inv_add => \@inv_rows};
my $temp = '/tmp/TEST_'.$inv_no.'_'.$$;
my $file = $temp.".tex";
$tt->process('printInvoice.tmpl', $vars, $file) || die $tt->error();
system("Can I write something here of some use???");
print header(-type=>'application/pdf');
open(PDF, $temp.'.pdf');
while (<PDF>) {
    print $_;
}
close(PDF);