#!/usr/bin/perl -s

my $a=shift or die("usage: $0 [-o=out.pdf] acet.pdf* \n");
my $b="_$$";

our ($n,$o,$topo,$scale);

$topo ||= "1x2";
$scale ="scale=$scale," if $scale;
$scale ||=($n ? "" : "scale=0.93,");

open(F,">$b.tex") or die("cant create temporay file ($b.tex)\n");

print F '
\documentclass[portuges,a4paper]{article}
\RequirePackage[a4paper,top=2cm,left=2cm,right=2cm,bottom=1.5cm,nohead,nofoot]{geometry}
\usepackage{babel}
\usepackage[latin1]{inputenc}
\usepackage{t1enc}
\usepackage{pdfpages}
\usepackage{fancyvrb}
\begin{document}
\fvset{fontsize=\small, frame=leftline, numberblanklines=false}
';

for ($a,@ARGV){
   print F '\includepdf['
           , $scale
           , "frame,nup=$topo,pages=-,delta=0.5cm 0.5cm]{$_}\n";
}

print F "\n\\end{document}\n";
close F;

system("pdflatex" ,$b);

if($o)  {print qq{ rename("$b.pdf",$o)\n } ;
                rename("$b.pdf",$o)}
else    { rename("$b.pdf","/tmp/_.pdf")}
unlink(<$b.*>)