my @erg = `ifconfig`;
foreach(@erg) {
        next if(m/:127/);
        print $_ if(m/inet Adresse:/);
}

ifconfig | perl -nE '!/::1|127./ and /inet[^:]*:\s*(\S+)/ && say $1'

say map { 
  !/::1|127./ 
  && 
  /inet[^:]*:\s*(\S+)/; 
  $1
} ( `ifconfig` );

use 5.010;
use Net::Domain qw(hostname hostfqdn hostdomain domainname);

say "hostname: ", hostname();
say "hostfqdn: ", hostfqdn();
say "hostdomain: ", hostdomain();
say "domainname: ", domainname();

my $host = hostfqdn() . '.';
use Socket;
my $addr = inet_ntoa(scalar(gethostbyname($host)));
print "Name= $host   IP Adr=$addr <\n";