Select Code to Download

my $retries = 5;
my $dbh;
...
if( $retries == 0 ) {
    die "Couldn't connect to $dsn after five (re)tries";
};