Select Code to Download

use Win32::TieRegistry;

...
      delete $printerKey->{$printer."\\Name"};
   }
}

#!c:/perl/bin/perl.exe -w
use strict;
...
    print "\n";
}
print "\n____________End of List____________\n";