use strict;
use Win32::TieRegistry ( Delimiter=>"/" );
$Registry->Delimiter("/");

my (@Print_Printer) = ();
my ($sysKey, $Print_Printer);

@Print_Printer = grep( m#^/#, keys( %{$sysKey->{"LMachine/SYSTEM/CurrentControlSet/Control/Print/Printers/"}} ) );
foreach $Print_Printer(@Print_Printer){
   print "$Print_Printer\n";
}