use Win32::Printer;

open (FILE, "test1.txt")or die $!;
my @list1 = <FILE>;
close FILE;

open (FILE, "test2.txt")or die $!;
my @list2 = <FILE>;
close FILE;

my $dc = new Win32::Printer(
                                papersize       => A4,
                                dialog          => NOSELECTION,
                                description     => 'Result',
                                unit            => 'mm'
                            );

my $font = $dc->Font('Arial', 12);
$dc->Font($font);
$dc->Color(0, 0, 0);

my $z = 10;
for my $a (0..$#list1){
  $dc->Write("$list1[$a]", 40, $z);
  $dc->Write("$list2[$a]", 120, $z);
  $z+=5;
}
$dc->Close();

Page

  $dc->Page();

The Page method starts new page.

Not allowed in "Meta" brackets!

See also "Start", "Next" and "End".

#!/usr/bin/perl

use Win32::Printer;
 my $dc = new Win32::Printer(
                                papersize       => A4,
                                dialog          => NOSELECTION,
                                description     => 'Result',
                                unit            => 'mm',

                            );


 my $font = $dc->Font('Arial', 12);
 $dc->Font($font);
 $dc->Color(0, 0, 255);
 $dc->page(1);
 $dc->Write(Test Seite 1, 10,10);
 $dc->page(2);
 $dc->Write(Test Seite 2, 20,20);
 $dc->Close();