Perl: My Own IP

perl -e 'open(IP,“ip addr list |“); print „IF\tIP\n“;while (<IP>) { print $2,“\t“,$1,“\n“ if /inet\s+([.\d]+).*\s([^\s]+)$/; }; close(IP);'