Select Code to Download

sub process_urlhits_update{
    my $sql1 = qq {UPDATE url_table SET hits};
...
        delete $urlhits_update{$url};
    }
}

sub process_urlhits_update{
    my $sql1 = qq {\nUPDATE url_table SET hits};
...
    my $sth = $dbh->prepare( $sql );
    $sth->execute();
}