#!/usr/bin/perl

use strict;
use warnings;
use PDF::API2;


my $font_size=10;
my $pdf  = PDF::API2->new(-file => "test.pdf");
$pdf->mediabox('A4');
my $page = $pdf->page;
my $fnt = $pdf->corefont('Helvetica',-encode => 'latin1'); 
my $boldfont=$pdf->corefont('Helvetica-Bold',-encode => 'latin1'); 
my $txt = $page->text();
my $gfx=$page->gfx;

$txt->textstart;
$txt->font($boldfont,$font_size);
# 1X moves right and left - #1Y more moves up and down
$txt->translate(380,740);
$txt->text("November 21, 2014");

my $image=$pdf->image_jpeg('logo.jpg');
$gfx->image( $image, 20, 770 );

$txt->font($fnt,9);
$txt->translate(20,740);
$txt->text("I am here");

$txt->font($fnt,9);
$txt->translate(20,728);
$txt->text("P.O.Box 1234");

$txt->translate(20,717);
$txt->text("Earth, ET. 1234-1234");

$txt->translate(20,705);
$txt->text("(000) 000-0000");


$txt->font($boldfont,$font_size);
$txt->translate(20,650);
$txt->text("John The III");
$txt->translate(20,636);
$txt->text("A Company Somewhere");
$txt->translate(20,621);
$txt->text("12345 Main St. Ste 001");
$txt->translate(20,606);
$txt->text("Saturn, ET. 00000");


$txt->font($fnt,10);
$txt->translate(20,550);
$txt->text("Dear Mr. ET III");

# Main content settings
$txt->font($fnt, $font_size);
$txt->translate(100,800);
$txt->font($fnt, $font_size);
# Main text content position on the page
my $y=523; 


my $summary = "
Lorem ipsum dolor sit amet, consectetur adipiscing elit. Vestibulum ac libero dui. Sed massa quam,
 ultricies in faucibus nec, volutpat sed velit. Donec aliquet, elit sit amet hendrerit eleifend,
 augue augue volutpat enim, quis posuere neque arcu eget nisi. Vestibulum ex erat, semper vitae
 blandit ut, pulvinar mattis lorem. Sed urnaest, ullamcorper quis feugiat sed, venenatis in lorem.
 Donec facilisis dolor nibh, sit amet lacinia est viverra vel.
 Praesent in leo id tellus sagittis luctus.

Maecenas quis ante mollis, viverra eros nec, luctus ante. Duis eget sapien rutrum, euismod velit et,
 mattis massa. Aeneanegestas et diam et venenatis. Praesent erat neque, lacinia vulputate ornare quis,
 accumsan nec metus. Fusce sollicitudinid risus vulputate aliquam. Cum sociis natoque penatibus et magnis
 dis parturient montes, nascetur ridiculus mus. Interdumet malesuada fames ac ante ipsum primis in faucibus.
Suspendisse ultricies, nisi ac lobortis posuere, lacus odio porta eros,

Suspendisse ultricies, nisi ac lobortis posuere, lacus odio porta eros.


Sincerely,

Mr. Joe Doe
Manager Services Manager ET

";

my @all_lines = split/\n+/, $summary; 

foreach my $rows (@all_lines){
    
	#my $string=join(" ",$rows)."\n";
	$txt->translate(20,$y);
	$txt->text("$rows");
	$y-=20;

}

# Bottom Data
$txt->font($boldfont,10);
$txt->translate(20,70);
$txt->text("Code Number:00007");

$txt->textend;
$pdf->save;
$pdf->end( );