use PDF::API2 qw();

{
    my $pdf = PDF::API2->open('AAnew.pdf');

    for my $index (1 .. $pdf->pages) {
        my $page = $pdf->openpage($index);
        $page->mediabox('A4');
        #my $txt  = $page->text;
        #$txt->textlabel(300, 700, $pdf->corefont('Helvetica Bold'), 12, 'some Header text');

	
        my $gfx = $page->gfx;
        $gfx->image($pdf->image_png('aa.png'), 0,0,150,50);
        $gfx->close;
        #$txt->textlabel(300, 100, $pdf->corefont('Helvetica Bold'), 12, "Page: $index");
    }

    $pdf->saveas('outputIT.pdf');
    $pdf->end;
}