my @printer = Printers(1);
foreach(@printer)
	{
	print $_{PrinterName};
        }