use LWP::Simple;
use HTTP::Request;
use HTML::TreeBuilder 3.0;
use Template::Extract;
use Data::Dumper;

foreach my $urls(
        'http://uptimemgr/saved/1358381265931.htm',
        'http://uptimemgr/saved/1375561135115.htm',
        'http://uptimemgr/saved/1388446037003.htm'
         )
{

getprint $urls =~ m{<div class=ipm8rpt>([^<]*)</div>}i || die;