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

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