eval {
   local $SIG{ALRM} = sub {die "alarm\n";};
   alarm($timeout);
   $db->execute($query);
   alarm(0);
};
if ($@) {
   die "Error" unless $@ eq "alarm\n";
   #timed out
} else {
   #didnt
}