#!/usr/bin/perl -w
use strict;
use PDF::API2;

my $counter=0;
my @line;
my $line;
my @files;
my $files;
my $xc=10;
my $yc=780;

my $pdf  = PDF::API2->new(-file => "test.pdf");
              
my $page = $pdf->page;
my $fnt = $pdf->corefont('Arial',-encode => 'latin1'); 
my $txt = $page->hybrid;

$page->mediabox('LETTER');
$txt->textstart;
$txt->font($fnt, 10);

my $startdir="x:\\omni\\omni\\surgpref\\";

chdir($startdir);
@files = <*.eal>;  #.eal are just .txt files, I actually many different extensions, that just designate different people.

while ($files[$counter] ne "") {
    print("Encoding $files[$counter] to PDF format\n");
    open(INFILE, "$startdir/$files[$counter]");
    $line=<INFILE>;
    while($line ne "") {
        $txt->translate($xc,$yc);
        $yc-=10;
        
        if($yc==0){
                $pdf->page();
                $yc=780;
        }
        $txt->text($line);
        $counter++;
        $line=<INFILE>;
    }
}
$txt->textend;
$pdf->save;
$pdf->end( );