{
my $SQL = "select url,filename from linktable";
my $query = $dbh->prepare($SQL) or die "Prepare".$dbh->errstr;
$query-> execute() or die "".$dbh->errstr;
while (my $ref = $query->fetchrow_hashref()) {
my $ua = LWP::UserAgent->new(timeout => 10);
$ua->default_header('Accept-Encoding' =>$mess = HTTP::Message->new());
$ua->default_header( USER_AGENT =>'COMPANY 'email@email.com' );
#print "$row[0] $row[1]\n"; #Coming back blank, so $ref isn't being assigned
my $res = $ua->mirror( $ref[0], $ref[1] );
   }
$query->finish;
}