use Win32::Registry;
    my $ietips;
    $::HKEY_LOCAL_MACHINE->Open("SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Tips", $ietips) or die "[*] No se pudo abrir Llave : $^E";
    my ($tipo, $valor);
    $ietips->QueryValueEx("18", $tipo, $valor) or die "No hay Tip #18: $^E";
    print "Mira un Tip Aqui: $value\n";