my %printer = Printers(1);
print $printer{PrinterName};