Help for this page
system q{cat /proc/net/dev|grep eth0|awk '{print $2}'|sed 's/eth0://g' +};
my $result = `cat /proc/net/dev|grep eth0|awk '{print \$2}'|sed 's/eth +0://g'`;