Select Code to Download

foreach (my ($key, $value) = each (%take_counts)) {
    print OUTPUT "$host\t$key\t$value\n";
}

my %take_counts = (
     foo => 1,
...
foreach:
    bar    2
    bar    2

my $dbh = DBI->connect("DBI:mysql:database=$database:host=$host",$db_u
+ser,$db_pass,{RaiseError=>1})|| die "$DBI::errstr\n";

my $dbh = DBI->connect("DBI:mysql:database=$database:host=$host",$db_u
+ser,$db_pass) || die "$DBI::errstr\n";

# or
my $dbh = DBI->connect("DBI:mysql:database=$database:host=$host",$db_u
+ser,$db_pass,{RaiseError=>1});