$GetPrinter=new Win32::API('winspool.drv','GetPrinterA','NNPNP','N');
$GetPrinter->Call($handle,2,$printer_info_2,10000,$bytesgot);