急问：如何用perl实现timeout

KayaLiu

现在用的是perlmenu,需要加上控制timeout的部分
如果用户在一段时间内没有输入，就退出当前的perl程序

现在read input是通过perlmenu里一个现成的module来完成的
，需要在外面包一层。我试着写了一段,不work，有大侠帮忙
看看么？汗~~从来没用过perl的说......


        my $sel;
        eval{
          local $SIG{ALRM} = sub {die "timeout"};
          alarm(10);
          $sel = &menu_display("";
          alarm 0;
        };
        if ($@) {
          die unless $@ eq "timeout";
        } else {
         do something.....
        }