sub GotoUrl
{
    my $browser_path = $reg_key->{""};
    my ($prog) = $browser_path =~ /^"/ ? $browser_path =~ m/"(.*?)"/ : split(/\s/,$browser_path);
    system("$1 $_[0]");
}