#!/usr/bin/perl -w
use PDF::API2;

my $out = shift;
die if -e $out;

$pdf = PDF::API2->new(-file => $out);
$pdf->preferences( -fullscreen => 1, -hidetoolbar => 1,
		   -hidemenubar => 1, -hidewindowui => 1, 
		   -fitbh => 1 );

for (@ARGV)
{
  die unless m/\.jpe?g$/i and -f $_;

  $pdf->page(0)->gfx->image( $pdf->image_jpeg($_), 0, -65 );
}

$pdf->saveas($out);