use strict;
use Win32::TieRegistry;

$Registry->Delimiter("/");
our $reg_key = $Registry->
{
    "HKEY_LOCAL_MACHINE/SOFTWARE/Classes/HTTP/shell/open/command"
};

GotoUrl("http://www.perl-community.de");

sub GotoUrl
{
    my $browser_path = $reg_key->{""};
    $browser_path =~ m/"(.*)"/;
    system("$1 $_[0]");
}