$SIG{ALRM} = sub { die "TIMEDOUT" };

my $sub = sub {
  warn "visible";
  eval { # some big action in eval
    sleep();
  };
  warn "invisible";
};

# execute $sub with timeout
alarm(1);
$sub->();