use Data::Dump qw/ dd pp /;
$!=0;
my $ret =  syscall(&SYS_recvmmsg, fileno($srv), $msg, 1500,0,0);
dd [ int($!)." $!", $ret ];