my $result = `cat /proc/net/dev|grep eth0|awk '{print \$2}'|sed 's/eth0://g'`;