local $SIG{ALRM} = sub { die "Database error!\n"; };
alarm 60; # wait 60 seconds before interrupting
# call to database