use Win32::Process;
use Win32::Registry;

my $browsekey; my %vals;
$main::HKEY_CLASSES_ROOT->Open('HTTP\shell\open\command', $browsekey) ||
        die "Open f]ailed: $!";
$browsekey->GetValues(\%vals);
my $default_browser = $vals{''}[2];
$default_browser =~ s/\.exe\s*(.*)/\.EXE/i;

my $browser;
Win32::Process::Create($browser, $default_browser,
        "$default_browser "http://www.perlmonks.org", 0,
        NORMAL_PRIORITY_CLASS, ".") || return 0;