use 5.010;
use warnings;
use strict;
use HTML::TreeBuilder;
use LWP::UserAgent;

my $ua = LWP::UserAgent->new;
my $fetch_result = $ua->get("http://www.perlmonks.org");
my $tree = HTML::TreeBuilder->new_from_content($fetch_result->content);

my $nodelet_table = $tree->look_down( '_tag' => 'table', 'id'=>'nodelet_container' );
my $other_users_cell = $nodelet_table->look_down('id'=>'Other_Users');

my @other_users_list = $other_users_cell->look_down('_tag'=>'li');

print "User logged into PerlMonks:\n";

foreach my $user_element ( @other_users_list )
{
    print "\t".$user_element->as_text."\n";
}