my $request=HTTP::Request->new(GET=> $lstrURL);