Select Code to Download

$query = "SELECT DISTINCT a.url FROM links_current a LEFT JOIN links_a
+rchive b ON a.url = b.url WHERE b.url IS NULL ;";
$statement = $dbh->prepare($query) or error ("Cannot Prepare Select li
+nks_current Statement: " . $dbh->errstr());
...
my $counter = 1;
while (my $website = $statement->fetchrow_array()){
    $mech->get($website)

    $counter++;
    
    archive_article($title, $article, $website);
    archive_link($website);
}