...
$packet->ethnew("eth0"); # <=== no complains anymore?
if ($arg_src_mac) {
        $packet->ethset(source=>$arg_src_mac);
}
...