I am simply a newbie when it comes to perl. But I am running Windows 2000 Pro. and the script worked for me. Here is my output: Here's the default printer for this user: hp deskjet 842c series,winspool,LPT1: