my $url = $baseurl . join("&", map {"$_=$params{$_}"} keys %params); my $cmd = qq{rundll32 url.dll,FileProtocolHandler "$url"}; exec $cmd;