C:\> perl -e "system('gsprint','-printer','MyPrinterName',$_) for glob('*.pdf')"