#!perl -w
use Win32 qw(SW_SHOWNORMAL);
use Win32::API;
use strict;
my $shellexec = Win32::API->new('shell32', 'ShellExecute', 
  'NPPPPI', 'N') or die "cannot import ShellExecute: $!\n";

my $result = $shellexec->Call(0, "open", "http://perlmonks.org/", 
       "", ".", SW_SHOWNORMAL);
if ($result < 33) {
  print STDERR Win32::FormatMessage($result), "\n";
  exit(1);
}