#!/usr/bin/perl

use strict;
use warnings;

open TMP, ">_${$}_.tex" or die "Can't create temporary file '_${$}_.tex'\n";
print TMP <<'eof';
\documentclass[a4paper]{article}
\usepackage{pdfpages}
\begin{document}
eof

my $last = pop @ARGV;
for (@ARGV) {
    print TMP "\\includepdf{$_}\n";
}

print TMP '\end{document}',"\n";

close TMP;

`pdflatex _${$}_`;
`mv _${$}_.pdf $last`;
`rm -f _${$}_.*`;