If all you want is the IP address...

#!/usr/local/bin/perl -w
use strict;
my $ifconfig = `/usr/etc/ifconfig ec0`;
my ($ip_address) = $ifconfig =~ /inet\s+(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d
+{1,3})/;
print "$ip_address\n";
[download]