Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl -w
use strict;
use LWP::Simple qw(get);
...
    my ($self,$text) = @_;
    print $text;
}

Select or download this

#!/usr/bin/perl -w
use strict;
use LWP::Simple qw(get);
...
    text_h => [ sub { print shift }, 'dtext' ]
);
$parser->parse($html);