system q{cat /proc/net/dev|grep eth0|awk '{print $2}'|sed 's/eth0://g'};

##</code><code>##

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