#!/bin/sh
/sbin/ifconfig | grep 'inet addr' | perl -ne '($addr) = /([\d.]+)/; if ($addr and $addr !~ /^127\./) { print "$1\n"; exit; }'