PDFの履歴書に写真添付するスクリプト

gistfile1.txt

#!/usr/bin/env perl

use strict;
use warnings;
use PDF::API2;
use Data::Dumper;

my $home= '/Users/user';
my $pdf = PDF::API2->open("$home/Desktop/rireki.pdf");

my $img = $pdf->image_jpeg("$home/Desktop/1.jpg");
my $page = $pdf->openpage(1);

# 右下が(0,0)
my ($x_pos,$y_pos,$x_size,$y_size) = $page->get_mediabox;

my $gfx = $page->gfx;
$gfx->transform(
    -translate => [
        $x_size - 154,
        $y_size - 75,
    ],
    -rotate    => '-90',
);

$gfx->image($img);
$pdf->saveas("$home/Desktop/out.pdf");