########################### MAKE PDF ############################

my $Template = 'HP_SOA_Assement.pdf';


my $pdf = PDF::API2->open($Template);
my $page = $pdf->openpage(1);



##### Set Font
###############

my %font = (
		Helvetica => {
		   Bold   => $pdf->corefont('Helvetica-Bold',    -encoding => 'utf-8'),
		   Roman  => $pdf->corefont('Helvetica',         -encoding => 'utf-8'),
		   Italic => $pdf->corefont('Helvetica-Oblique', -encoding => 'utf-8'),
		},

		Futura => {
		   Bold   => $pdf->ttfont('FtraHv__.ttf',    -encoding => 'utf-8'),
		   Medium   => $pdf->ttfont('FtraMd__.ttf',    -encoding => 'utf-8'),
		   Lite  => $pdf->ttfont('FtraLt__.ttf',    -encoding => 'utf-8'),

		},
		
	 );

## Set Text
###############

newText($fontType,  'Bold', 12/pt, 'black', 13/mm, 91/mm, $valueHash{"forCover"});



newText($fontType,  'Bold', 10/pt, 'black', 13/mm, 81/mm, $valueHash{"byCover"});








########################################  PAGE 2  #########################################################

$page = $pdf->openpage(2);


sub newText{

	my $flashVars = $page->text;
	 $flashVars->font( $font{$_[0]}{$_[1]}, $_[2] );
	 $flashVars->fillcolor( $_[3] );
	 $flashVars->translate( $_[4], $_[5] );
	 $flashVars->text( $_[6] );
}