#!/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();