#!/usr/bin/perl use Encode; use PDF::API2::Lite; $pdf = PDF::API2::Lite->new; $font = $pdf->ttfont('RyoDispStd-Medium.otf'); while (<>) { chomp; $pdf->page(612,792); $pdf->print($font,360,162,396,-90,1,decode("utf8",$_)); } $pdf->saveas("foo.pdf"); exit 0;