my ( $ps_fh, $ps_filename ) = File::Temp::tempfile();
my $pdf = PDF::FromHTML->new( encoding => 'utf-8' );
my $pdf_data;
$pdf->load_file( \$data );
$pdf->convert();
$pdf->write_file( $pdf_filename );
-