#!/usr/bin/perl
# Created by maciunio <maciunio@ask-bsi.org> 13.05.2003
# I know this is POOR perl, but i don't know this lang. If you DO - email me with a better programming

use HTML::TokeParser;
use LWP::Simple;

my $URL = "http://www.rp.pl/zakladkaNsc6/netscape-tab.html";
my $arr = "";

my $page=get($URL);
my $p = HTML::TokeParser->new(\$page);

while ( my $token = $p->get_tag("li") ) {
    my $text = $p->get_trimmed_text("/li");
    $arr .= "$text\nhttp:/\/\www.rp.pl\n";
}

print $arr;
