The following will do it:

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

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

If you want to do more than that, please read the documentation for Win32::Printer.  I had never used it myself until I saw your question, but a few minutes with Google pointed me right to that documentation.