my $cmd = "ip addr show";
my %interfaces;

open my $pipe, '-|', $cmd or die "(E) could not execute: $cmd: $!\n";
my $device;
	while ( my $line = <$pipe> ) {

		if ( $line =~ m/^\d+:\s+([^:]+): <([^>]+)>/ ) {
				$device = $1;
				$interfaces{$device}->{abilities} = $2;
		}

		while ( $line =~ m/(mtu|state|qlen|brd?) (\S+)/g ) {
				$interfaces{$device}->{$1} = $2;
		}
	}
close $pipe;

# stash für JSON view
$c->stash->{networkDevices} = \%interfaces;