use strict qw(subs vars);

use LWP::UserAgent;
use Time::HiRes qw{ time alarm };
use Data::Dumper;

...
(snip)
...
	my $ua = LWP::UserAgent->new() ;
...
(snip)
...
		my $req = HTTP::Request->new( 'GET', $url ) ;
		$res = $ua->request( $req ) ;
...
(snip)
...