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

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

##</code><code>##

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