Select Code to Download

my $failed;
eval {
...
    if ( defined $@ and $@ eq "TIMEOUT\n" ) { ... }
    else { ... } # some other error
}

my $failed;
my $seconds = 12;
...
$ perl test.pl 
DBD::mysql::db do failed: Unknown database 'Thanos1983' at test.pl lin
+e 30.
Error

my $sth = $dbh->prepare("SELECT `ID`, `Y-Values` FROM `".$config{'MySQ
+L.table'}."` WHERE 1");

if (!$sth->execute()) {
    die "Error: ". $sth->errstr ."\n";
}