#!/usr/bin/perl
#
# example for PDF::Create
#
use 5.14.0;
use warnings;
use autodie;
use PDF::Create;

my $txt=<<EOT;
Here's a little bit of text that contains a very long line followed by a few short ones so we can see which method(s) may or may not handle wrapping and embedded newlines, just in case any of them do.
Though\tprintnl\tshould\thandle
embedded newlines just fine.
EOT

my $pdf = new PDF::Create('filename'=>'foo.pdf');
my $a4 = $pdf->new_page('MediaBox'=>$pdf->get_page_size('A4'));
my $page = $a4->new_page;
my $f1 = $pdf->font('BaseFont'=>'Helvetica');
$page->string($f1, 12, 72, 600, $txt);
$page->printnl($txt, $f1, 12, 72, 400);
$pdf->close;