$SIG{ALRM} = sub {
    die "Timed out"; # Or whatever
}
foreach $task (@tasks) {
    alarm 30;
    $task->do_one_task();
};
alarm 0;
$SIG{ALRM} = 'DEFAULT';