my $pdf = new PDF::Report(PageSize => "A4", PageOrientation => "Portrait");
$pdf->newpage( 0 );
$pdf->openpage( 0 );
$pdf->setSize( 8 );
$pdf->addRawText("Hola Mundo",300, 300);
my $code = '31570918';
$pdf->drawBarcode(300, 500, 1, 1, '3of9', '31570918', '012345', 9+$zone, 9+$zone, 3+$zone, 0, '-', 0.5, 9, '');
print "Content-Disposition: attachment; filename=\"carnet.pdf\"\n\n";
print "Content-type: application/pdf\n\n";
print $pdf->Finish();