eval { local $SIG{'ALRM'} = sub {Net::pcap::breakloop($$ref2pcap_master);}; alarm 10; # Capture two messages outgoing and incoming Net::Pcap::loop($$ref2pcap_master, 2, \&do_eth_init_process, \$init_fail); alarm 0; };