Select Code to Download

$socket->sockopt("25", pack("Z*", "eth0"));

 sub SO_BINDTODEVICE{25};

...
+          my $int = pack("Z*",$unit);
+          setsockopt($sock,SOL_SOCKET,SO_BINDTODEVICE,$int)|| die "er
+ror $!\n";
+       }