#!/usr/bin/perl
use strict;
use warnings;
use Mail::Cap;

my $url = "http://www.perl-community.de/";

my $mailcap = Mail::Cap->new(take => 'ALL');
my $htmlapp = $mailcap->viewCmd ('text/html', $url) or die "no browser found";

if ($htmlapp) {
    print "Browser call is $htmlapp\n";
    system ($htmlapp);
}