Select Code to Download

sub test {

...
   }

}

sub test {
...

}

Type of arg 1 to each must be hash (not anonymous hash ({}))  near "} 
+)

my $dbh;

...
$select[0]=['SELECT * FROM emails WHERE `email`=?'];
$select[1]=['SELECT * FROM emails AS e RIGHT JOIN bounces AS b  ON e.`
+emails_id`=b.`emails_id` WHERE e.`email`=? AND b.`email_date`=FROM_UN
+IXTIME(?) '];

...

}

&connection;
...

&end_connection;