$ENV{'PERL_HTML_DISPLAY_COMMAND'}='run "C:\Program Files\Mozilla Firefox\firefox.exe" %s';
my $browser=HTML::Display->new();
if (defined($browser)) {
my $mypage="Hello world!
";
$browser->display(html=>$mypage);
}
else {
print("Unable to open browser: $@\n");
}