I searched google groups for "perl/tk printer dialog" and found some useful stuff on the first page .. a few disucssions of possible modules for it, plus a mention of
as a solution (invokes the windows api calls to open the print dialog) i personally haven't used it, but hopefully it will work for your purposes..