All pastes #386323 Raw Edit

Something

public text v1 · immutable
·published 2007-03-08 14:47 UTC
rendered paste body
#!/usr/bin/perl -w
use strict;
use LWP::Simple qw(get);
use HTML::Parser;

my $parser = Example->new();
my $html   = get("http://colomanager/saved/1358381265931.htm")
    or die "Cannot fetch the HTML\n";

    $parser->parse($html);

    package Example;
    use base qw(HTML::Parser);
    sub text {
        my ($self,$text) = @_;
            print $text;
}