Select Code to Download

use Socket qw(AF_INET pack_sockaddr_in);
use Net::Interface;

my $intf = Net::Interface->new('eth0');
my $ipaddr = $intf->address(AF_INET);

bind(SOCKET, pack_sockaddr_in(0, $ipaddr)) || die "can't bind socket t
+o local address";