use Win32::Registry;
use Data::Dumper;
    
use strict;
use warnings;

my $perl;
$::HKEY_LOCAL_MACHINE->Open("SOFTWARE\\Perl", $perl);
$perl->DeleteValue('BinDir');