This works for me, maybe for you.

use Win32::TieRegistry;

$printerKey= $Registry->{"HKEY_LOCAL_MACHINE\\System\\CurrentControlSe
+t\\Control\\Print\\Printers\\"}
  or die "Can't read Printers key: $^E\n";

@printers= keys( %{$printerKey} );

foreach $printer (@printers) {
  print $printerKey->{$printer."\\Name"}." ".
    $printerKey->{$printer."\\Printer Driver"}." ".
    $printerKey->{$printer."DsSpooler\\serverName"};
}
[download]

The registry is a nightmare so beware...

/brother t0mas