eval {
                 sub test {
                     timeout 10, @_ => sub {
                         print "$_[0]";
                     };
                 }
             };