use Win32::TieRegistry( Delimiter => '/' );
sub isExist{
    my $tips= $Registry->Open(
        "HKEY_LOCAL_MACHINE/Software/Microsoft/Windows/CurrentVersion/Run/",
        { Access => 'KEY_READ' },
    )
        or  die "Can't find the 'Run' key: $^E\n";
    foreach(  keys %$tips  ) {
        print "$_: ", $tips->{$_}, "\n";
    }
}
isExist();