perl -e '$if=eth0; $mac=(split(/\s+/,qx!/sbin/ifconfig $if!))[4]; print $mac;'