#!/usr/bin/perl

use warnings;
use strict;

use Data::Dumper;
use IO::All;
use LWP::UserAgent;
use URI::http;

use DB::DBI;

my @objs = DB::http_response->retrieve_all;

foreach my $obj (@objs) {
        my $VAR1;
        eval ($obj->get('http_response'));
        my $ua = LWP::UserAgent->new;
        my $response = $ua->request($VAR1->{_request});
        print $VAR1->{_request}->uri."\n";
}