#!/usr/bin/perl
#
use strict;
use warnings;

$ENV{PATH}="/usr/bin:/usr/local/bin:/bin";

my @browsers = qq|firefox lynx|;

USEBROWSER: {
    for (@browsers) {
        my $status = (system("$_ http://www.perlmonks.org") == 0 ) ? 0 : 1;
        last USEBROWSER if $status == 0;
    }

    print "No suitable browser was found...\n";
}