use lib qw(../lib);
use PDF::Report;
my $file = $ARGV[0];
print "Pass me a PDF file." if ! -e $file;
my $pdf = new PDF::Report(
File => $file,
undef => undef
);
$pdf->openpage(1);
$pdf->setFont('Helvetica');
$pdf->setSize(12);
my ($pageW, $pageH) = $pdf->getPageDimensions();
$pdf->shadeRect(30, $pageH-5, 200, $pageH-30, 'grey');
$pdf->addRawText("Document opened successfully", 32, $pageH-22, 'red');
my $outpdf = $0;
$outpdf =~ s/pl$/pdf/;
open(PDF, "> $outpdf") or die "Error opening $outpdf: $!\n";
print PDF $pdf->Finish();
close(PDF);
exit;