my $ua = LWP::UserAgent->new(
            agent => 'Mozilla/4.0 (compatible; MSIE 6.0; Win32)');
while () {
   my $string=get_response( $url, $ua);
   $string=~/\d+:\d+:\d+/;
   print $&,"\n";
};

sub get_response {
    my ( $url, $ua ) = @_;

    my $request = HTTP::Request->new( GET => $url );
    my $response=$ua->request($request);

    return $response->as_string;
};