use strict;
use warnings;
use Win32::Printer;

my $dc = new Win32::Printer(dialog => '1');