$_ = `/sbin/ifconfig $if`;
(/inet addr:((\d{1,3}\.?){4})/m) ?
   ($ipaddr = $1) : (warn 'ifconfig failed');