use strict;
use warnings;
use feature 'say';
use open IO => ':raw';
use GD;
use PDF::API2;

my $gd_obj = GD::Image-> new( scalar qx/convert rose: png:-/ );
my $pdf = PDF::API2-> new;
my $pdf_image = $pdf-> image_gd( $gd_obj );

say $pdf_image-> width;
say $pdf_image-> height;