my $capobj:shared;
$capobj = Net::Pcap::open_live($dev,1024,0,0,\$err);